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GHESS A fast version with many levels of play, using high resolution display. 


There are many options, including setting up, saving games on tape, changing level of play, 
castling and "en passen". Plays a very strong game.Price £11.50 inclusive. 
This program is suitable for the Model A( 32K RAM) and the Model B. 


GOLF A very true to life simulation of an eighteen hole course. Complete with 


fairways, bunkers, greens and streams. Altogether a very compulsive game. 
Price £7.00 inclusive. Suitable for the Model A( 32K RAM) and the Model B. 


Ty FILE A multi-purpose filing system, with user definable set up. It 


caters for all file handling, including modifying, fast search, extensive calculation 
facilities and more. Price £25.00 inclusive. 
Model A or B. 


P ‘ae m SPACE WARP 





The ultimate Star Trek type game, 
extremely complex, with high resolution 
colour graphics and sound. It is supp 
-lied complete with a sixteen page manual 
and function key labels. It requires 

32K RAM. Price £11.50 inclusive. 
Suitable for the Model A( 32K RAM) and 
the Model B. 


ACTUAL SCREEN PHOTOGRAPH 


THE REEEII A new magazine dedicated exclusively to users of the B.B.C, 


Micro. Tle Beebon contains tested programs, features on programming, special offers, features 
on hardware, reviews and much more. There will be at least three substantial programs in each 
issue, written by professional programmers . Published every two months, starting in May. 
Annual subscription (6 issues) only £7.50. 


RAGAGHTMNC! A standard Backgammon game, for the Model A( 32K RAM) 


and the Model B B.B.C. Micros . It has extremely fast computer resposes. Full playing 
instructions are included. Price £8.00. 


SEND TO: BUG-BYTE, 100 THE ALBANY, OLD HALL STREET, LIVERPOOL L3 9EP. 
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PREFACE 





o you have,or have access 

to, a BBC Micro. It's a 

super machine — it's got 
colour, it's got sound, it’s got 
lots of different modes and it's 
really exciting to use. But it’s 
also new and simply because it’s 
so new, there’s hardly any 
software to put it through its 
paces. The WELCOME (as 
shown on the cover) pack is 
good fun — for the first few 
days anyway — but there is a 
limit to how often you can run 
even the best of programs! 

The BBC Micro runs a fairly 
standard BASIC which means 
that programs written for other 
machines using a fairly standard 
BASIC should run on it without 
a lot of trouble — well that’s the 
theory anyway. In practice 
though it's a bit more tricky. 
Which is why, to save you hours 
of frustration, we've gone to the 
trouble of collecting together a 
selection of programs and 
converted them, or re-written 
them, so that they run 
incorporating features which 
make the best use of the BBC 
Micro's extras — its colour, its 


sound and so on. 

Along the way I'll explain 
details of what to look out for in 
converting programs originally 
written for other micros — hints 
to help you if you want to try 
your hand at implementing your 
own favourites. 

Six of the programs in the 
book have been written from 
scratch for the BBC Micro. 
Compare them with the others 
and you'll notice their structure 
is very different, much closer to 
the ideal of ‘top down 
structured programming’ the 
computer academics are always 
recommending to us. Well, in 
the case of the BBC Micro their 
advice is well worth following. 
It makes structured program- 
ming really straightforward and 
the rewards are easy-to- 
understand and easy-to-modify 
programs. 

Each program, converted or 
original, is presented in a 
standard format. There is a 
general introduction, an outline 
of the program's structure (apart 
from the few cases where the 
programs are exceptionally 


straightforward), a technical 
discussion, a ‘how to use 

it’ section and, where 
appropriate, a discussion of 
what things can be done to take 
the program further. It should 
be possible to learn a great deal 
about how the program, and the 
BBC Micro, can be used by 
reading the program structure 
and technical sections. 

To make it easier to enter 
the programs from their listings, 
each one has been renumbered 
in steps of 10. This means you 
can use the AUTO command to 
avoid having to type hundreds 
of line numbers. The 
renumbering was done after 
each program had been tested 
and the descriptions of the 
program structure are all based 
on this new numbering. 

If you don’t fancy typing the 
programs in from the listings, 
there is an easy option. CT 
Software have all the programs 
you'll see in these pages already 
on tape — for further details 
and ordering information, see 
the advertisement elsewhere in 
this magazine. 


_—______iaiesaa nei 
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Morse Trainer — Practise Morse Code 
to perfection with this program. 
It will help you improve receiving 
speeds and aid initial recognition of 
Morse characters, introducing 
you to Morse Code gradually through 
a series of planned lessons. 

4K 


ae coe ee ey ee 


x 
| 
I 


IS THE OLD BASE7123 
IS THE NUMBER7A5SB3 


IN BASE 10 IS 22961 
WHAT IS THE NEW BASE7S 
THE NUMBER IN BASE 8 IS 5466i 
THIS PROGRAM WIL 
€=16 TO ANY OTHE ANY MORE NUMBERS CYES OR NO>7 


WHAT. IS THE 
WHAT IS THE 


11100101 IN BASE 10 IS 229 
WHAT IS THE NEW BASE?716 
THE NUPMBER IN BASE 16 IS ES 


ANY MORE NUMBERS CY OR NO>? 


Base Changer — Do you have trouble converting to and from binary or hexadecimal? 
This program takes away the guesswork, converting to and from any number base up to 
16. 

1.5K 





Converted from a program by M K Cook 





JMORSE 


TRAINER 


Confusing your dits 
and your dahs? 
Practise Morse code 
to perfection with this 
program. 





any people today are 
still interested in using 
Morse code. And well 


they might be, since even with 
all the technological advances 
which have been made, the 
human ear is still supreme in 
decoding a weak, interference- 
laden signal and the audio 
filtering between our ears 
remains the best available by 
several orders of magnitude. 
However, as the back of the 
head is not fitted with an output 
socket to take advantage of 
these filters, the decoding also 
has to be done in the brain! 
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Unfortunately this requires 
learning and usually involves 
listening to records, tapes or 
having friends send Morse code 
which you subsequently verify 
that you have taken down 
correctly. The trouble with this 
is that you soon become familiar 
with the contents of the records 
and tapes, and quickly lose 
your friends! The answer lies 
with your friendly computer, 
which will sit for hours 
contentedly churning out Morse 
code for you to learn without a 
single grumble. 

This program can help to 


improve Morse code receiving 
speeds and aid the initial 
recognition of Morse characters. 
It introduces you to Morse code 
gradually in a series of lessons. 
In the first one, the letters are 
either all dots or all dashes and 
therefore easy to learn. As you 
progress, other letters are 
added but you are still tested on 
those you should already know. 


A Load Of Code 

The Class A Radio Amateur 
Exam requires the sending and 
receiving of Morse at 12 words 
per minute, so that is the top 
speed for which this program is 
designed although higher 
speeds can be achieved by 
altering the appropriate delay 
values. In accord with the 
recommendations of the Radio 
Society of Great Britain, the 
dots and dashes are sent at 

12 wpm even at the slower 
speeds — the spaces being 
increased to provide the lower 
overall speed. In this way the 
code is learned more easily. 
The program also provides a 
sound output via the cassette 
output port. 

The secret of learning Morse 
code is regular practise every 
day for 15 to 30 minutes. You 
should start with the slowest 
speed and work right through 
he lessons again — do not 
earn lesson one at 12 wom 
before proceeding to lesson 
two. 


TECHNICAL DETAILS 


L is an array which contains the 
binary equivalent of the Morse 
code character in an array 
position corresponding to its 
ASCII value. For example, 
L(65) contains 6 (the Morse 
value of A). This is calculated 
by taking the Morse code for A 
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Right: The eight training lessons offered 
by the program are supplemented by 
a keyboard sender. 





MORSE KEYBOARD 


1 

2 
3 
4 
Ss 
6 
8 
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Left: An example of 
the keyboard sender 
in operation. You 
type the message 
and the program 
sends the Morse. 


VARIABLES 


Array with Morse code for conversion. 
Array with inter-letter space delay. 

Array with inter-word space delay. 

String variable with the current lesson’s 
characters. 

Morse characters used by output routine. 
Variable set to O if dots and dashes are to be 
displayed graphically, otherwise set to 1. 


PROGRAM STRUCTURE 


Statement 


Lines 10-80 Selects MODE 7 and defines arrays 
used. 

Lines 90-200 User is asked to select speed for 
practise. 

Lines 210-380 Choice of the nine lessons 
displayed. Goes to appropriate 
section according to user's 
response. 

Lines 390-450 | Morse Sends letter typed on keyboard. 
Keyboard 

Lines 460-630 | Preparation | Sets up the values of the letters for 
essons. 

Lines 640-850 | Lesson General lesson routine — displays 
Content content of forthcoming lesson. 
Lines 860-1380 } Lesson User given option of two types of 
practise and fuller instructions. 
Computer then gives required 
signals, checks responses and gives| 
appropriate feedback. 

Routine to print dot as *.’ and to 
give sound of appropriate length. 
Routine to print dash as ‘-’ and to 
give sound of appropriate length. 


Data arrays for timing. 














MORSE TRAINER MENU 








LESSON ONE CEISHTMO> 
LESSON TWO CAUV> 
IN THREE (NDB> 
LESSON FOUR CAWJ> 
LESSON FIVE CCKPG> 
LESSON SIX C(RLO@Z> 
LESSON SEVEN <FKY> 
LESSON EIGHT (0123456789> 
KEYBOARD SENDING 


OTHER KEY TO RESET SPEED 


which is *‘.-'. This is then written 
in the reverse order, using a 0 
for a dot and a 1 for a dash, 
thus 10. A 1 is placed on the 
left-hand side of this number to 
indicate that the character is 
complete. The resulting number 
(110) is then converted from 
binary and becomes 6. 

To output the Morse, the 
least significant bit is tested; for 
Oa dot is produced and for a 1, 
a dash. The number is then 
shifted one place to the right 
and the process is repeated 
until the number is 1, indicating 
that the entire character has 
been sent. The duration of the 
tone is set in line 90 and the 
inter-element space in variable 


DE. 


HOW TO USE THE 
PROGRAM 


Each lesson can be one of two 
types. First, there is keyboard 
recognition: in this mode the 
computer gives you a Morse 
character which you have to 
match on the keyboard. If you 
get it right, the computer tells 
you so and one point is added 
to your score and to your ‘tries’ 
total; if you get it wrong you 
will again be told, just one 
point being added to your tries 
total. You will keep getting the 
same character until you get it 
right. 

Once you can obtain a good 
score on that, go to the second 
mode in which five letter 
random groups are given. Write 
these down without looking at 
the screen and check them 
when the group is completed. 

Incidentally, the characters 
appear on the screen just after 
the sound, so a beginner could 
guess in advance of the 
characters and subconsciously 
learn Morse. > 


gc Re SS SET ES SSE 9 
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MORSE TRAINER 


MODE 7 

DIM L(96),SP(4),SH(4) 

FOR A=32 TO 95 

READ L(A) 

NEXT A 

FOR A=1 TO 4 

READ SF(A),SWC(A) 

NEXT A 

TS=23TL=TSX3iREMHXTIME OF TONE 

CLS$PRINTSPRINT TABS) $ 

“xx MORSE TRAINER xx" 

PRINTS PRINT SPRINT SPRINT'SELECT 

SPEED x2 ee 

PRINT?PRINT TABC10)$"1 = 6 WORDS/MIN" 

PRINT TAB(10)3$"2 = 8 WORDS/MIN" 
10 WORDS/MIN" 
12 WORDS/MIN" 

THEN 160 


PRINT TABC10)3 
K$=GET$3 IF 
T=ASC(K$) 
9 THEN PRINT" PLEASE 
GOTO 1460 
PCVAL(K$) ) 
WCVAL (KS) ) 
SPRINT RINT “MORSE TRAINER MENU" 
TNW=03 


~ LESSON ONE (EISHTMO)" 
LESSON TWO (AUY)" 

LESSON THREE (NDB)" 

LESSON FOUR (AWU)" 

LESSON FIVE (CKFG)" 

LESSON SIX (RLQZ)" 

LESSON SEVEN (FXY)" 

LESSON EIGHT (0123454789)" 
KEYBOARD SENDING" 


PRINT'4 
PRINT'S 
PRINT'S 
PRINT'7 
PRINTS 
PRINT" 
PRINT 
PRINT'ANY OTHER KEY TO RESET SPEED" 
K¢=GET$3IF K$="" THEN 350 
IF ASC(KS) OR ASC(K$)<49 THEN 100 
SW=O°LS$= 
ON VAL(K#) GOTO 610,590,570,550, 
530 5510,490,460,390 
CLSOtPRINTIFPRINT "MORSE KEYBOARD 
* RETURN FOR MENU" 
TS3IF K$="" THEN 400 
CHR$(13) THEN 210 
MHL (ASC (KS) ) 
IF M=0 THEN GOSUE 1470 ELSE GOSUB 1320 
PRINT TABCAS) $K$ 
GOTO 400 
“"0123456789" 
GOSUB 640 
GOTO 840 
LS$="FXY" 
GOSUB 4640 
LS$=LS$+"RLQZ" 


LS$+"CKPG" 
NW=0 THEN GOSUE 
Sé+" AWS" 

IF NW=6 THEN GOSUE 
LS$=LS$+"NDB" 
IF NW=0 THEN GOSUB 
LS$=LS$+"AUV" 
IF NW=0 THEN GOSUB 640 
LS$=LS$+"EISHTMO" 
IF NW=0 THEN GOSUB 640 
IF R=1 THEN 210 ELSE 860 
CLStPRINT: PRINT "LESSON " $VAL(K$) 3} 
"= IN WHICH WE LEARN" 
PRINT 
IF K$="8" THEN PRINT"NUMBERS 
ELSE PRINT “LETTERS = "3 
FOR A=1 TO LEN(LS$) 
PRINT MID$(LS$,A,1)3" "3 
NEXT A 
PRINTS PRINT 
FOR A=1 TO SO0:NEXT A 
GR=0 
FOR A=1 TO LEN(LS$) 
K$=MID$(LS$,A,1) 
M=L (ASC (KS) ) 
GOSUB 1320 
PRINT TABCLL) $KS 
GOSUB 1470 


790 
800 
810 
820 
830 


840 
850 
860 
870 
880 
89 

900 
910 
920 
930 
940 
950 
960 
970 


980 


990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
1500 


1510 
1520 
1530 


1540 
1550 
1560 





NEXT A 
PRINT 
PRINT"FRESS ‘R’ TO REPEAT" 
PRINT" ANY ( TO CONTINUE" 
K$=GET$3IF kK '“"THEN 830 ELSE IF 
" THEN 730 
R$(13) THEN R=1 
TURN 
SPRINTSPRINT "PLEASE SELECT AN OF TION" 
NT 
INT" 1 ~ KEYBOARD RECOGNITION " 
PRINT" IT GIVE A SOUND AND You" 
PRINT" MATCH IT ON THE KEYBOARD" 
PRIN RINT" 2 ~ RANDOM GROUPS" 
PRINT" I GIVE YOU 12 GROUFS AND" 
PRINT" TAKE THEM DOWN WITHOUT LOOKING" 
K¢=GET&3IF K¢$="" THEN 940 
2" THEN 1150 
THEN 210 
PRINT "ECHO EACH 
STER WHEN YOU HEAR IT" 
PRINT "PRESS RETURN TO 
SELECT AGAIN" 
PRINTSPRINTIF RINT TABCL2)3"%*Xx SCORE xxx" 
PRINT TAB(8) $ "CORRECT" 3SPC(7)3}"OUT OF" 
FT=0%AT=0 
GR=1tREM*XXTURN OF GRAFHICS 
K1$=MID$(LS$,RNDCLENCLS$) 941) 
M=L (ASC (K1$)) 
PRINT TAB(8,8)3 FTSTABC1S) SAT 
GOSUE 1470 
PRINT 
GOSUE 1320 
K$=GET$i IF K¢$=""THEN 1090 
IF K$#CHR$(13) THEN 860 
PRINT Kt 
IF K#<>K1% THEN AT=AT+HI SPRINT XX NO TRY 
AGAIN Xxx" 3GOTO 1040 ELSE PRINT" -OK= "3 
SPC(15) 
FT=FT+13AT=14+AT 
GOTO 1030 
CLS!GR=1$PRINT 
PRINT"RANDOM GROUPS" 
PRINT 
FOR A=1 TO 1000:NEXT A 
FOR A=1 TO 2 
FOR AW=1 TO 5 
K$=MID$(LS$,RND(LEN(LS$)),1) 
M=L(ASC(K$)) } 
GOSUB 1320 | 
PRINT" "$K$$ 
NEXT | 
PRINT 
GOSUE 1470 
NEXT 
PRINTSPRINT'HIT RETURN FOR MENU 
ANY KEY TO REPEAT" 
K$=GET$3IF K$=""THEN1300 
IF K$=CHR$(13) THEN 860 ELSE 1150 
T=(M AND 1)4+1 
ON T GOSUE 1390,1440 
M=INT(M/2) 
IF M<>1 THEN 1320 
FOR Ai=1 TO DE 
NEXT At 


we 


< LETTER DELAY 

“DE THEN 1420 
RETURN 
IF GR=0 THEN PRINT "~"3 
TIME=~TLXS?SOUND 1,~-15,150,TL 
GOTO 1410 
TIME=0 
IF TIME<WD THEN 1480 
RETURN 
DATA 0+0,94,0,0,0,0,94,45,109,0,0, 
115,97,106,41 
DATA 63462+60,5648,32,33,35,39,47 
DATA 71,0,0,0,0,576,0 
DATA 6417,2159)2,20,11,16,4+30,13, 
18,7,5,15,22 
DATA 27,10,8,53512,24,14,25,29,19 
DATA 0,0,0,0,0 
DATA 48,122,28,78,17,52,10,30 


Personal Software Summer ‘82 








Converted from a program by W S Lounds 








BASE 


Switching from 
decimal to binary and 
from binary to Hex is a 
chore that would be 
nice to hand over to 
the computer. 


CHANGER 


his program enables you to 

convert to and from any 

number base up to and 
including base sixteen, 
hexadecimal. It uses a novel 
method of extracting numerical 
information from alphanumeric 
data, relying on the ASCII code 
to do the work for you. 


TECHNICAL DETAILS 


The only clever part of this 
program is the way the ASCII 
code for each digit is converted 
to the numeric value. The input 
number string is broken down 
into digits using the MID$ 
function and then the number 
or letter is converted to 
numerical form by the ASC 
function. If the digit is in the 
range 0-9 then subtracting 48 
from the ASCII code will give a 
number with the correct value 
and if the digit is a letter in the 
range A to F, subtracting 55 
performs the same function. For 
example, if the number AQ is 


MODE 7 
CLS 
PRINT 


PRINT "THIS FROGRAM WILL CHANGE 


FROM ANY BASE" 
SINT "<=16 TO ANY OTHER 
"WHAT IS THE OLD BASE" 
IF X¢$=""THEN 50 
GOSUEB 440 
tN 
N“2 OR N>16 THEN 50 
INPUT "WHAT IS THE NUMBER", X 
IF xX "THEN 130 
GOSUE 480 
IF 
N1L=N 
PRINT 
PRINT X$3" 
IF 
PRINT "THE NUME 
000000, THIS 
NT "MEANS THAT ERRORS MAY 
NT 
NTSINPUT "WHAT IS THE NEW 
X$="" THEN 240 
SUB 440 
NiIF NZ 


VeINT(NI/B1) 


IN & 


E 10 IS "3N 
N1<1000000 THEN 240 


R IN BASE 10 


OR N>16 THEN 240 


BASE 


$ 


1 THEN FRINT " ERROR "3E=0:GOTO 130 


input, the first digit is the 
character 9 which has ASCII 
code 57, thus subtracting 48 


gives the correct numeric value 


of 9. 
This procedure seems to be 


PROGRAM STRUCTURE 


Lines 10-20 
Lines 30-70 


Set Up 
Initial Base 


Lines 80-190 |Get Number 


Lines 200-230 | Range Check 


Lines 240-260 | Final Base 


Lines 270-350 | Conversion 
Answer 


Lines 360-390 
I Repeat Loop 


Lines 400-430 
Lines 440-470 | String 
Conversion 
Base 10 
Conversion 





Lines 480-560 


Selects MODE 7 and clears screen. 
Displays instructions and asks for 
base to convert from. 

Asks for number to be input and 
converts it to base 10, 

Checks whether number is less than 
a million; if not displays warning. 


Asks for the base into which 
number is to be converted. 


Converts number to appropriate 
base. 


Displays answer. 


Allows option of performing 
another conversion. 


Converts from string to number. 


Converts to base 10. 





R=N1-UxB 1 


IF R&R 


9 THEN 350 


ES=E$+CHR$(R+48) 


Ni=V? 
GoTo 
R=R+5 
LE 
PRINT? 


=16" 


+X 


BL rs 
FOR J=LEN(BS$) 


PRINT 
PRINT 


PRINT? INPUT 
OR NO)",X# 
LEFT#&(X$,1) 
LEFT#(X$,1) 
GOTO 400 


IF 
IF 


N=6 
FOR J= 


If 


V=0 THEN 360 


$=BS+CHRE(R) IN1L=V3 


0 THEN 290 
PRINT 


"THE NUMBER IN BASE "3 


TO. 1 STEP =t2. 


MID$(B$,I,1)$ SNEXT 


"ANY MORE NUMBERS (YES 


nye 
"NO" 


THEN 20 
THEN STOF 


TO LENCX$) $D=ASC(MID$(X440,19) 


1 N=NX10+D~483NEXT 


RETURN 
N=0 
FUR 


Is 


OCCUR" 
IF D 
BASE" ,X% 


NEXT J 
RETURN 


IF D>47 
44 AND D 
E=1!tRETURN 

IF D>=B 
N=NXEH+D 


J=1 TO LEN(X#) 2D=ASC (MID 


AND D£S8 THEN D=D-48 
71 THEN D=D~-S 


THEN E=1$RETURN 





—_—_—_—_—_—_—_—_—_—_—_—_—_—__—_— 


Personal Software Summer ‘82 


BASE CHANGER 
a] 


a little more useful when the : 
second digit is converted. The THIS PROGRAM WILL CHANGE FROM ANY BASE 


second digit is the character A <=16 TO ANY OTHER BASE <=16 


and has the ASCII value of 65. 
: WHAT IS THE OLD BASE?72 
Subtracting 55 gives the correct WHAT IS THE NUMBER711100101 


numeric value of 10. 


HOW TO USE THE 


11100101 IN BASE 10 IS 229 








PROGRAM WHAT IS THE NEW BASE?716 
First, the computer asks you to z aie 
specify the base you wish to THE NUMBER IN BASE 16 IS ES 
convert from — the ‘old’ base. It : i 
hen asks for the number; it will ANY MORE NUMBERS CYES OR NOD? 
accept any number but if the 
number is greater than 

1,000,000 it prints a warning 

hat errors may occur. It then THIS PROGRAM WILL CHANGE FROM ANY BASE 
asks you to specify the base you <=16 TO ANY OTHER BASE <<16 
wish to convert to (the ‘new’ 

ase’) and gives you your WHAT THE OLD BASE?7123 
number in that base. WHAT IS THE NUMBER7A5B23 
Having answered one F 

problem it asks ‘Any more ASBS IN BASE 10 IS 22961 
numbers’ and if you reply ‘YES’, 
it starts the process from WHAT IS THE NEW BASE7S 
scratch, 





: : THE NUMBER IN BASE 8 IS 54661 
Top: A empie inary. te Hex fino job the 
- r ine jol js 

e program was desire far WY MORE NUMBERS CYES OR NO>7? 


Right: Could you convert base 13 into 
Octal in your head?! 


MICROCOMPUTER COMPONENTS 
LOWEST PRICES - FASTEST DELIVERY REGISTERED REFERRAL CENTRE 


FOR THE BBC PROJECT 


MEMORIES AT BEEBU hy 


UNBEATABLE PRICES 


mee! BBC MICRO 


2114 Low Power 200ns 0.93 089 0.84 
INDEPENDENT NATIONAL USER 
2708 moons r feaeogpl ee: (1.80 GROUP FOR THE BBC MICRO 


2716 450ns 2.45 2.25 1.95 

IF YOU OWN A BBC MACHINE, OR HAVE ORDERED ONE, 
2532 450ns 4.50 4.25 4.05 OR ARE JUST THINKING ABOUT GETTING ONE, THEN 
2732 450ns 495 465 420 YOU NEED BEEBUG. 


BEEBUG runs a regular magazine devoted exclusivly to the 


4116 150ns 0.93 089 0.84 BBC Micro (10 issues per year). 
4116 200ns 0.74 0.70 067 New program listings in each issue: 


3.D. Noughts and Crosses and Full Colour Moon Lander in 
4118 200ns 3.90 3.45 2.99 Aprilissue 
5516 200ns 950 8.95 8.50 Latest news on the BBC project. 
What you should know before you order your machine 

6116 200ns 5.70 5.35 5.05 | Hardware and Software Hints and Tips: What the Manual 
6116 Low Power 200ns 760 7.20 6.75 | doesn’t tell you. 
How to upgrade the A option. 
*Official orders from educational establishments qualify How to add joysticks and games paddles 

for 100+ price. Reviews of the latest software. 
Discount software and hardware. 
Regular advice Clinic to answer your queries. 


rl —_! | ~~ a QUANTITY . 35 ae 
ciate 2 Ree EN DISCOUNTS All this and much more when you join BEEBUG. 
i: a AVAILAI 











oe EREPLIEDPA MEMBERSHIP: 
PE CBERREEOED Introductory offer (closes 
CASH WITH ) SPATCHED 30th June) 
OF R I s Gmonths £4.50 
Make cheques payable to 1 year £8.50 


BEEBUG After 30th June 
M I DWICH (ee) PUTER Co. LTD. S74 WANDSWORTH RD. Beare aan S.A.E. for 
DEPT CT, HEWITT HOUSE, NORTHGATE STREET, LONDON, SW8 4TE sample copy. 
BURY ST. EDMUNDS, SUFFOLK IP33 1HQ For technical enquiries and editorial material Send to 


TELEPHONE: (0284) 701321 TELEX: 817670 The Editor, P.O. Box 50. St. Albans, Herts 
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Surround — The object is to move your piece around a moving ‘enemy’ so that he has 
nowhere to go! Fast reactions are needed for this one. 2.5K 


Patterns — A demonstration not only of the BBC Micro's graphics capabilities but also 
of how restful moving colour images can be. Several choices of pattern including some 
fantastic web designs which continuously alter. 1.5K 


Crystal Ball — Type in a name and get the computer to generate a lighthearted 
character assessment based on a reduction of the subject's name to a single ‘magic’ 
number. 3.5K 


Breakthrough — You have a bat, five balls and a wall of six rows of bricks. The aim is 
to break through the barrier of bricks scoring as many points as possible. 2.5K 


Wordsquare — The idea is to give the computer a list of words which it then hides in a 
15 by 15 grid of letters. They may be hidden in a number of different ways and no two 
puzzles are ever the same. 4K 


Squish — No game of squash was ever like this! Between you and the back wall are a 
row of pillars which the ‘ball’ can bounce off! 2K 


Battle of Britain — Based on two months at the height of the Battle of Britain, you 
allocate the number of British radar sites to be implemented, the number of fighters to 
scramble, the number of fighters to manufacture, etc. The computer plays the German 
side. 2.5K 


Fox and Hounds — A game played on a chess-board grid where the computer controls 
the fox and you control the hounds. The aim is to trap the fox. 3.5K 


The White Barrows — Trap the Sorcerer and recover the Magic Chalice, using your 
magical powers carefully to negotiate and locate his position. Bribe goblins, fight 
dragons and work out the layout of the labyrinth. 5.5K 


Ski-Run — Downhill slalom complete with gates to negotiate. Reach the bottom of the 
course in the shortest possible time, steering your way around the gates and without 
going off the edge of the course. 3K 


Alien Attackers — Control the position of your space ship so that you can shoot down 
the invading aliens. They seem to travel slowly but they never stop! 3K 


Conquering Everest — Have you ever dreamt of climbing our world’s highest 
mountain? This impressive text-only game allows you to travel from base to base, 
choosing whether you want porters or Sherpas to carry all your provisions. But don't 
expect to conquer Everest at one sitting, you have to move the right equipment to the 
right place at just the right time. 8.5K 


Dambuster — Watch those bombs bounce as they hit the water .. .will you destroy the 
dam this time? 2.5K 


Leapfrog — The aim of the game is to get the left-hand rows of ‘coins’ over to the 
right-hand side and vice versa. Sounds easy... 5.5K 


Obstacle Course — Race against the clock to get through a maze which is continually 
changing its pattern. Grit your teeth when it blocks you but don't despair, you'll get 
through in the end. 1.5K 





Converted from a program by Andrew Thomas 











This presi could 
easly y give you that 
‘hemmed-in’ feeling. 































































































































































































































































































































































































































































































The pictures above and on the 
opposite page sow rel initial alice lay 
in 


and two Sxamipies jam 

action. In the first game di play, the 
player has lost by attempting to 
retrace his own steps, in the second 
the player has tri to cross his 
previous tracks. 
































urround is well-known as a 

classic PET game but this 

conversion allows for an 
equally entertaining game on 
the BBC Micro. 

At the beginning of the 
game the screen fills with a grid 
of dots and two squares appear. 
One is yours, the other belongs 
to your challenger — the 
computer. The object of the 
game is to surround your 
opponent so that while you try 
to hem in the computer, the 
computer is attempting to 
surround you. You have just 
one advantage over the 
machine — you can select the 
skill level at which you want to 
play. This selection determines 
the speed at which the program 
will run. 

Note once the skill level is 
set, the only way to alter it is to 
Escape and re-RUN the 
program. 


TECHNICAL DETAILS 


Two methods are used to 
convert this PET program for 
the BBC Micro. The original 
program made use of the fact 
that the PET’s display is 
memory-mapped; it placed 
graphics characters on the 
screen by POKING memory 
locations and found out what 
was on the screen by PEEKing 
memory locations. The BBC 
Micro is also a memory mapped 
system but it works in such a 
totally different way that simply 
changing the PEEK or POKE 
addresses is not enough. 

The easier of the two 
problems to solve is the 
POKEing of characters onto the 
screen. In MODE 4 the BBC 
Micro has a 40 by 32 line 
screen. The PET’s screen is only 
40 by 25 lines so it should be 
possible to fit any PET display 
into a MODE 4 screen. 

The first step is to convert 
the PET screen address into x,y 
co-ordinates corresponding to 
the same point on the screen. In 
Surround, procedure 
PROCXY(M) converts the PET’s 
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Lines 10-60 


Instructions 


Initialise 
Print Board 


Countdown 


Get Key 
Move Logic 


End Game 


Set Values 
Address 
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Selects graphics mode, defines 
CHR $(224) as a stippled square, 
CHR§(225) as a solid square and 
CHR{$(226) as a square with its left- 
hand side solid and its right-hand 
side blank. The foreground and 
background colours are set to 
yellow and black. The arrow keys 
are brought into use. 

Displays information. Selects skill 
level. 

Initialises variables. 

Displays information and selects skill 
places each opponent's starting 
square on the board. 

Displays ten blocks at bottom right 
of screen which vanish one by one. 
The disappearance of the final 
block signals start of play. 

Selects direction of movement. 
Checks whether a move is allowed 
and whether either opponent has 
won. 

Notes whether game is lost or won. 
Resets to normal mode (MODE 7) 
and restores arrow keys to usual 
function. 

Controls move values. 

Defines screen addresses 





ag SEER EY oregon 


memory address M to x,y co- 
ordinates using the simple 
equations: 


Y =INT((M-32768)/40) 

X=M-32768-40*Y 
These x,y co-ordinates are used 
by the BBC Micro in PRINT 
TAB(X, Y); CHR&(C); statements 
to print the character C at the 
same location as on the PET's 
screen. This technique is also 
used in many of the other 
programmes in this issue where 
conversion from a POKE-based 
system is needed. 

The problem of producing 
the graphics character used by 
the PET is solved by using the 
VDU 23 call (this allows special 
characters to be defined). For 
Surround, three extra characters 
are required: 


224, a dotted square 
225, a solid square 
226, a half square 


In general, the PEEK problem is 
much more difficult to solve. 
You can convert the PET’s PEEK 
addresses to x,y co-ordinates by 
using PROCXY and you can 
then go on and convert the x,y 
co-ordinates to BBC Micro 
screen addresses. 

The trouble is that the BBC 
Micro doesn't store the ASCII 
code of the character at the 
screen location — it stores the 
actual dot pattern of the shape 
of the character in eight 
memory locations. Each 
character is made up of eight 
rows of eight dots and each row 
is stored in a memory location. 
This means that you can PEEK a 
screen location to find out what 
character is at any position but 
there is still the question of 
which one of the eight should 
you examine? It is obvious that 
the value that you get back 
depends on which row of the 
character you PEEK. 

The solution to this problem 
is to choose to PEEK a row of 
the character that identifies it as 
different from all the other 
characters in use. For example, 
in Surround you can tell the 
difference between all the 
characters by looking at the first 
row or the seventh row. If 
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> 


SURROUND 


character 224 is present at a 
screen position then PEEKing 
the address which corresponds 
to its first row returns a value of 
$CC. Similarly character 225 
would return $FF and character 
226 would return $FO. 

The only other character 
used in Surround is a ‘.’ and 
this returns the value 0 if you 
look at the top row. This is the 
same value you would get from 
the character ‘blank’. To tell the 
difference between a blank and 
a ‘.’ you have to look at the 
seventh row which contains the 
value $24. 

It should be clear that you 
can tell which character, if any, 
is at any location simply from 
the value of the top row or the 
seventh row. The function 


FNS(X,Y,N) calculates the 
screen address of the Nth row of 
the character at x,y. The BBC 
Micro follows the tradition set 
by the ATOM in using ‘?’ 
instead of the more usual PEEK. 
Thus the rather cryptic 
?FNS(X,Y,N) returns the value 
of the Nth row of the character 
at screen position x,y. 

Other features worth noting 
are the use of *FX 4,1 to bring 
the cursor control keys into the 
keyboard as ‘normal’ keys, the 
use of VDU 19 to set the 
background/foreground colours 
and the use of STRING$ to 
produce the playing area. 


HOW TO PLAY 


Using the cursor control arrows 
to move, you have to try to 


surround your opponent (the 
computer) so that it cannot 
make a legal move. You are not 
allowed to move backwards onto 
a square you have already 
covered, you must not leave the 
screen and you cannot move 
onto a square that the computer 
has already covered. If you 
make a prohibited move you 
automatically lose the game. 

You can select the speed at 
which the game is played by 
choosing your ‘skill factor’; 
level 9 gives the slowest and 
easiest game and level 1, the 
fastest and most difficult. 

The start of the game is 
signalled by the ‘countdown’ in 
the bottom right-hand corner — 
as the last block disappears the 
computer is on its way. 








VDU 23,224,8CC,&33,&8CC,&33,8CC,&33,&CC,&33 
VDU 23,225,8FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF 
VDU 23,226,8F0,8F0,8F0,8F0,8F0,8F0,8F0,&F0 


KFX 4,1 
DIM A(4) 
MODE 4:CLS? 
VDU 19,0,3, 
PRINT TAB(1 
PRINT TABCL 
PRINT 
PRINT "The object of this game is 

to surround" 

PRINT “the computer’s player, 

ise. to stop" 

PRINT "the computer from moving." 

PRINT 

PRINT "You must move onto a dot 

every move," 

PRINT 

PRINT "Once a dot has been covered you" 
PRINT "cannot backtrack onto it." 

FRINT 

PRINT "The computer will be trying 

to do" 

FRINT "the same to you." 

PRINT 

PRINT "There will be a countdown 

at the" 

PRINT "start of the game." 

PRINT 

PRINT"You select the direction of 
movement" 

PRINT"with the cursor ‘arrow’ keys” 
PRINT 

PRINT "Hit any key when ready to 
continue.” 

AS=CETS 

PRINT 

INFUT "Select your level between 1, 
difficult and 9, easy ",S 

IF S<1 OR S>9 THEN PRINT 

"I said ";:GOTO 310 

S=$x100 

ACL)=1 

AC2)=-1 

A(3)=40 

A(4)=-40 

X1=33359 

Y1=ACRND(4)) 

Y=1 

X=33301 

CLS 

PRINT 

PRINT TAB(S)$ CHR$(224)3 

“= COMPUTER SURROUND YOU - ";CHR$(225) 


1 
0 
Ss 


Ss 
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FOR I=1 TO 24 

PRINT SFC(1)3 STRING$(38,".") 

NEXT I 

PROCXY(X) {PRINT TAB(XC,YC) $CHRS(225)3 
PROCXY(X1)$PRINT TAB(XC,YC)}CHR$(224)} 
FOR I=0 TO 10 

PROCXY(33847-I)$PRINT TAB(XC,YC)} 
CHRE(226)}3 

NEXT I 

FOR I=10 TO 0 STEP~1:FOR J=1 TO 5003 
NEXT J 

PROCXY (33847-I) {PRINT TAB(XC,YC)$ 

" "SSNEXT I 

A=RND (4) 

FOR I=1 TO SiNEXT I 

T=INKEY (0) 

IF I<>-1 THEN T=I-&87%A=I 

*FX 15,0 

ON A GOSUE 810,820,800,830 

IF A<>0 AND RND(1)>.5 THEN Yie~Y¥ 
X=X+Y 

PROCXY(X) IF ?FNS(XC,YC,6 
PRINT TAB(XC,YC) $CHRE (2253 $ 
PROCXY (X1+3«Y1)¢ 

IF PFNS(XC,YC,6)<>24 THEN 690 

IF RND(1)<.1 THEN Y1=A(RND(4)) 
X1=X14+Y13PROCXY(X1)3IF PFNS(XC,YC,6)=24 
THEN PRINT TAE(XC,YC) $CHR$(224)3GOTO 560 
X1=X1~-Y1 

R=RND (4) $PROCXY (X1+A(R))¢ 

IF ?FNS(XC,YC,6)=Z24 THEN Y1=A(R)!GOTO 670 
PROCXY(X1+1)3IF ?FNS(XC,YC,4)=24 

THEN Yi=1 %GOTO 670 

PROCXY(X1-1)3IF ?FNS(XC,YC,6)=24 

THEN Yi=-13GOTO 670 

PROCXY(X14+40)3IF ?FNS(XC,YC,6)=24 

THEN Yi=40:GOTO 670 

PROCXY(X1-40)3IF ?FNS(XC,YC,6)=24 

THEN Yi=~40:GOTO 670 

PRINT TAB(O,26)$"YOU WIN !! "33GOTO 760 
PRINT TAB(O,26);"YOU LOSE !! "3 

INFUT "ANOTHER GAME ",Q$ 

IF LEFT$(Q$,1)="Y" THEN S=S-50:GOTO 380 
MODE 73aFX 4,0 

GOTO 840 

Y=40tRETURN 

Y=~13RETURN 

Y=1$RETURN 

Y=~40 RETURN 

PRINT? END 

DEFFROCXY(M) 

YC=INT((M-32768)/40) 


>24 THEN 7585 


DEF FNS(X,Y,N)=HIMEM+(Y*40+X) X84N 
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PATTERNS 


A chance to show off 
the BBC Micro’s 
colour and Hi-Res 
graphics. 
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ots of the programs in this 
collection use colour but, 

because other 
requirements of the programs 
dictate MODE 4, they are 
restricted-to two-colour 
combinations. This program 
uses MODE 5 to give a splendid 
four-colour display on either 
Model A or Model B. 

If you are using a black and 
white monitor with your 
computer don't feel left out and 
turn the page. The effects in 
monotone are still very pleasing 
as the different colours come 
out as various shades of grey. 

The program listed is written 
so that it will run immediately 
on either model although this 
does initially limit the display to 
four colours. The colours 
selected are black, white, red 
and yellow for a crisp and 
striking effect (if you want to 
display a wider range of colours 
on a Model B machine see the 
notes below). 


Random Symmetry 

The program offers a choice of 
five displays. The first two are 
kaleidoscopes — reminiscent of 
the optical toys where you peer 
down a tube to see a 
continuously changing pattern 
of coloured shapes. The 
principles behind both the 
traditional kaleidioscope and 
this program are randomness 
and symmetry; the pattern 
changes at random but 
whatever happens in one 
quadrant is mirrored in the 
other three. 

We can initiate two basic 
variants on the kaleidoscope 
theme. In the first, the 
pattern changes entirely at 
random and in the second, 
there are additional constraints 
introduced so that the pattern 
moves out from its centre. 

In the next option, circles of 
varying diameter appear on the 
screen. Each one is made up of 
triangular segments of random 
colour. They have random mid- 
points and they can overlay > 
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PATTERNS 
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each other filling the screen 
with bold, bright colour. 

The final two programs 
make ctncentric ellipses 
resembling spider's webs 
appear on the screen. In the 
first version they appear in 
random colours at random 
positions and in the second, 
coloured webs spiral out from 
the centre and white webs spiral 
in from the outside. The full 
effect of the program is only 
apparent once the two sets of 
pattern have mingled — as they 
interwine, textures will appear 
in the pattern. When you break 
into this display it will finish a 
cycle before control is returned 
to you. 


TECHNICAL DETAILS 


As this program was written 
especially for the BBC Micro, it 


is different in structure from the 
conversions. In particular, 
procedures have been used as 
much as possible to make the 
program simply understood and 
easy to change. For example, 
the Kaleidoscope I and II 
programs both make use of a 
fundamental routine PROCSYM 
which will plot a point x,y in all 
four quadrants. You could 
produce another kaleidoscope 
program simply by altering the 
way in which PROCSYM is 
called with x,y and colour 
values. Notice that both 
kaleidoscope routines make use 
of block graphics in the form of 
CHR$ (224), a solid block 
defined in PROCINIT. This may 
seem a strange thing to do 
because MODE 5 is high 
resolution and using block 
graphics reduces the resolution 
to 40 by 32. However, if you try 


PROGRAM STRUCTURE 


Lines 10-20 | Set Up 


Lines 30-130 }| Menu 


Lines 140-190 | Kaleidoscopes 


| Lines 200-270 


Lines 280-340 





Lines 350-440 


Lines 450-470 | Character 


Lines 480-540 


Symmetric 
Print 


Lines 550-590. 
Lines 600-670 


Kaleidoscope I 
Kaleidoscope II 


Lines 680-780 | Plot circle 


Lines 790-870} Plot ellipse 


Select MODE 7 (for text display) 
and jump to initialisation routine. 
Prints title, displays menu and 
asks user to make choice. Jumps 
to appropriate subroutine. 
Selects MODE 5, joins together 
text and graphics area of screen. 
Notes which of two routines 
requested and jumps as 
appropriate. 

MODE 5. Draws circles with 
random centres and random 
diameters in random colurs. 
MODE 5. Draws concentric 
ellipses in random colours. 
MODE 5. Draws ellipses stepping 
in from edge in white and ones 
in random colours stepping out 
from centre. 

Defines character 224 as solid 
square. 

Allows character 224 to be 
echoed symmetrically in the four 
quadrants simultaneously. 
Random kaleidoscope. 
Kaleidoscope which steps 
outward from centre. 

Routine to draw circles on 
screen. Line 750 contains 
equation. 

Routine to draw ellipses on 
screen. Line 840 contains 
equation. 





to produce a kaleidoscope 
program with points of the size 
MODE 5 uses, you will soon 
find that it takes a long time to 
fill the screen and changes will 
be almost invisible. 

Another odd feature of the 
kaleidoscope procedures is the 
use of the VDU 5 command. 
This joins the text and graphics 
screens together allowing you to 
print a block anywhere on the 
screen. However, this feature 
isn't used by the program so 
you may be a little puzzled why 
we bother with it. The reaon is 
two-fold: first the VDU 5 
command causes the speed of 
printing to be reduced and this 
makes the kaleidoscope display 
more effective and second, the 
VDU 5 commands gets round an 
apparent bug in BBC BASIC. If 
you print a character at location 
19,31, (ie the bottom right-hand 
corner), then the text screen 
automatically scrolls even if you 
supress the carriage return/line 
feed. By using VDU 5 we can 
use the entire screen area and 
suppress scrolling. 

The rest of Patterns is fairly 
straightforward. The circles 
routine PROCCIR uses the 
PLOT 85 command to produce 
colour-filled triangular 
segments. The ellipse routine 
PROCELIPS uses a standard 
method for producing an ellipse 
by joining points on the ellipse 
by straight lines. 


HOW TO USE THE 
PROGRAM 


This one is virtually effortless. 
Select the number of your 
choice, type it in (not forgetting 
Return) and sit back. The 
display will continue until you 
stop it — by pressing any key. 
In the case of Web II, the 
program will not halt 
immediately but will finish its 
cycle. 


SCOPE FOR 
EXPERIMENTATION 


The program includes four 
colours — red, yellow and white 
as foreground colours and black 
as the background. However, 
you may prefer to program 
other colour combinations. If 
you are using a model B 
machine you can have eight by 
using MODE 2. 


a 
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Select one 


Kaleidoscope I 
Kaleidoscope II 


Type appropriate number 7 


MODE 7 
FROCINIT 
PRINT?PRINT T “PVA T OTE RRs 
PRINT TAB(O,1 ; t one?" 
PRINT 
PRINT TAB(10) K eidoscope I" 
FRINT TAB(10) eidoscope II" 
PRINT TAB(10); c f 
PRINT TAB(10) 
PRINT TAB(10) 
PRINT 
INPUT "Type appropri 
ON A GOSUE 140,140,2 
MODE S 
VDU S 
IF A=1 THEN PROCK1 EL 
B=INKEY (0) 
IF B=~1 THEN GOTO 1460 
RUN 
MODE S 
X=RND(1280)-1 
Y=RND(1024)-1 
R=RND(100)+100 
C=RND (4) <1 
PROCCIR(X,Y,R) 
IF INKEY(0)<>-1 THEN RUN 
GOTO 210 
MODE S 
C=RND (4) <1 
GCOL 0,C 
RND (800) 
PROCELIFS(R) 
IF INKEY(0)<2-1 THEN RUN 
GOTO 290 
MODE S 
FOR R=1 TO 800 STEP 10 
C=RND(4)~1 
GCOL 0,C 
PROCELIPS(R) 
GCOL 4,0 
FROCELIPS(800~—R) 
NEXT R 
IF INKEY(0)#>-1 THEN RUN 
GOTO 360 


DEFFPROCINIT 


VDU 23,224,&8FF,&FF,&FF,&8FF,&FF,&FF,&FF y &FF 


TAB(X,Y) SCHRS( 224) } 

PRINT TAB(19~X,Y) }CHRS(224)3 
PRINT TAB(X,31~-Y) }CHR$(224)} 
PRINT TAE(19~X,31-Y) $CHRS(224) 3 
ENDFROC 
DEFFROCK1 

ND(10)-1 
Y=RND(16)-1 
C=RND(4)~1 
PRO! 


DEFPROCK2 

FOR X=10 TO O STEP -1 
Y=RND(16)-1 
C=RND(4)-1 
PROCSYM(X,Y,C) 

NEXT X 

ENDFROC 
DEFPROCCIR(X,Y,R) 


FOR T=0 TO PIx2 STEP INC 


MOVE R*COS(T)+X,RXSIN(T)+Y 

PLOT 85, RxCOS(T+INC)+X,RXSIN(T+INC)+Y 
MOVE X,Y 

NEXT T 

ENDF'ROC 

DEFPROCELIFS(R) 

INC=.5 

EX=.5 

MOVE 640+R,512 

FOR T=0 TO 2xPI STEP INC 

PLOT S,R*COS(T)+640,RXEXXSIN(T) +512 
NEXT T 

PLOT 5,640+R,512 

ENDFROC 





nz: 


There’s no longer any 


CRYSTAL 
BALL 





need to cross the 
gypsy’s palm with 
silver to have your 
fortune told — your 
BBC Micro will do it at 
the press of a key! 





rystal Ball is a light- 
hearted character 
assessment game which 


will amuse all your family and 
friends. You type in a name — 
your own name, the name of a 
friend or relative, even the 
name of a famous personality — 
and the computer will tell that 
person's fortune. 


Name Or Number? 


It's based on the idea of 
allocating numbers to each 
letter of the alphabet — A=1, 
B=2 to Z=26 — then adding 
them together repeatedly until 
only a single digit, in the range 
one to nine, remains. When a 
person's name is typed in, the 
computer works out their ‘magic 
number’, for example, ‘JANE’ = 


HOW TO PLAY 


The computer will ask you to 
type the name of the person 

whose character you want to 
assess and all you have to do 
then is to type it in. 


At the end of each reading 


the computer will ask if you 
want more studies, 





10+ 9+ 14+5 = 30, 3+0 = 3 
thus Jane’s magic number will 


be 3. 


a 


PROGRAM STRUCTURE 


Statement 


Lines 10-30 
Lines 40-90 | Get Name 


Lines 100-230] Arithmetic 


Lines 240-270] Prepare 
Screen 


Lines 280-970] Subroutines 





Repeat or 
Finish 


Selects MODE 4 and clears screen. 
Prints title and asks for subject's 
name. 

Converts name to a single digit 
number by assigning value to each 
letter and adding repeatedly. 
Displays subject's number and calls 
appropriate subroutine depending 
on its value (for 1 it goes to lines 
290-350, for 2 it goes to lines 
360-420 and so on). 

Nine character readings, one of 
which is selected for each of the 
numbers | to 9, 

Asks whether more readings are 
required; if YES, the program will 
restart, if NO, the program ends. 








NUMEROLOGICAL CRYSTAL BALL 
Type the name of the person who 
is the subject of this reading 
? JANE 
The subject’s number is 3 


Their main characteristics aret~ 


Sparkling character, full of 
life. Will draw good fortune 
whatever they attempt. Acute 
intellect and wit. Speaks with 
charm and grace. A natural 
winner 


Do you wish to do any more 
studies? Type Y/N 


NUMEROLOGICAL CRYSTAL BALL 
Type the mame of the person who 
is the subject of this reading 
?WINSTON CHURCHILL 
The subject’s mumber is 1 


Their main characteristics aret- 


At best enormously forceful 

at worst annoyingly obstinate 
Individualistic, having one 
track minds. Massive ego 

Either remarkable or a crashing 
bore 


Do you wish to do any more 
studies? Type Y/N 


NUMEROLOGICAL CRYSTAL BALL 
Type the name of the person who 
is the subject of this reading 
?MAGGIE THATCHER 
The subject’s number is @ 


Their main characteristics arei~ 


Absolute determination to 
succeed im life. Tough, 
single-minded in purpose, but 
win or lose, they ‘do it big’ 
Sometimes miserly, and 
materialistic 


Do you wish to do any more 
studies? Type Y/N 
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NUMEROLOGICAL CRYSTAL BALL 


_person who 
reading 


Right: The answers are sometimes 
uncomfortably accurate! 


REMXxXPROGRAM FOR NUMEROLOGICAL 
CHARACTER ASSESSMENT 


PRINT" 


CRYSTAL 


NUMEROLOGICAL 


PRINT TAB(O,6)$"Type the name of 


the pers 


on who" 


PRINT"is the subject of this 


$=0 3 B= 


INFUT At 


FOR A 


=1 TO LENCA$) 


IF MID$(A$,A,1)=" "THEN S 
B=E+ASC (MID$(A$,A,1)) 


t-G*3BZ2~ (CLENCA$)-S)K64) 
=INT(Z/100) 


CHINTZ 


Bx100)/10) 


Ds INT(Z-BxX100—Cx10) 
+D 
=9 THEN 240 
FeINTCE/10) 
GHE~Fx10 


E=F+G 
GOTO 
CLS 


190 


PRINT TAB(0,6)3"The subject 


number 


is “FE 


PRINT{PRINT' Their main 


aristics aret—"{PRINT 


GOSUE 290,360,440,510,590 
750,830,900 
GOTO 980 
PRINT"AL best enormously force 
PRINT"at worst annoyingly ob 
PRINT" Individualistic, having 
F NT'track minds. Massive ec 
PRINT'Either rem able or 


PRINT" 
RETURN 
PRINT 


bore, 


"Exhibits feminine 


characteristics" 

f NT"Reticent, willing to compromise" 
PRINT"May seem placid and" 

PRINT" ingratiating, but is 

Plotting," 

FRINT"a1] the time, Can be" 
FRINT"genwinely sweet and 

PRINT" appealing quiet side." 


TURN 
INT" 


Sparkling character, full of" 


PRINT" life. Will draw qood fortune" 
PRINT"whatever they attempt. Acute" 
PRINT" intellect and wit, Speak with" 
FRINT' charm and grace. A natural" 
PRINT" winner." 


Left: The question, who’s the subject? 


The subject’s number is 8 
Their main characteristics are:- 


Absolute Geteraination to 
succeed in life ug 
single-minded in purrs &. bu 
win.or lose, they “do it big” 
Sometimes miserly, an 
ee 


t 


you wish to ae. any more 
studies? Type ¥7N 


RETURN 
FRINT'Inauspicious, dull and lackine 
PRINT" in imagination, Self-righteous 
PRINT"and respectable to fault" 
PRINT"At best can be a pillar of" 
PRINT"society, capable of" 
PRINT"making @ positive contribution" 
PRINT"to it." 

RETURN 

PRINT'Make excellent (if not" 

PRINT" faithful) bedmates, Extremely" 
RI active and energetic," 


interests and talents 
to knOW, but fur! 
PRINT 
RETURN 

PRINT"A paragon of domesticity and" 
PRINT"harmony with an even temper" 
PRINT"Fair minded and slow to anger" 
PRINT'Make excellent wife/husband" 
PRINT" conscientious parent and loyal" 
PRINT" friend, Fun to be with (if you" 
PRINT"can put up with their" 
PRINT"ocessional tendency to QOSssip), 
RETURN 

PRINT'Secretive, stand-offish" 


PRINT sciplined and hauahty 


PRINT" terious, often hiding 


Olute determination to" 
PRINT"succeed in life, Tough, 
PRINT" single-minded in Purpose, but" 
PRINT"win or lose, they ‘do it bia’" 
PRINT"Sometimes miser ly, and” 

PRINT" materialistic" 

RETURN 

PRINT"A wise counsellor, spiritual" 
PRINT" leader, seeker~after and 
PRINT"teacher-of truth. Idealist" 
PRINT"in the highest sense of the" 
PRINT"word. Strongly i ionate" 
PRINT"and possessed of durable will" 
PRINT'A remarkable person" 

RETURN 

PRINT?PRINT"Do you wish to do any more" 
PRINT"studies? Type Y/N" 

ZE=GETS 

IF Z$="Y" THEN 10 

IF Z$="N" THEN STOF 

PRINT" RESFONSE NOT RECOGNISED" 

GOTO 980 

END 
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Are you looking for a more personal approach to computing? 

You are... then Computing Today is the magazine for you! Packed full 
of feature articles, projects, general topics, news and reviews, 
Computing Toady is aimed at readers who want to get more out of their 
microcomputer. 


The latest ABC circulation figures show Computing Today has 
increased its readership by 85% over the previous year — great news 
for us at CT. However, the ever increasing demand for Computing 
Today. has meant that, despite our printing more each month, some 
readers seem to be missing out on their regular copy. 


If you would like to ensure a regular supply for the next twelve months, 
each issue lovingly wrapped and posted to you, nothing could be 
simpler. Just fill in the form below, cut it out and send it with your 
cheque or Postal Order (made payable to ASP Ltd) to: 


Computing Today Subscriptions, 
513 London Road, 

Thornton Heath, 

Surrey CR4 6AR 


Alternatively you can pay by Access or Barclaycard in which case 
simply fill in your card number, sign the form and send it off. Do NOT 
send your card. 

Do yourself a favour, make 1982 the year you start to take Computing 
Today every month, we'll give you a truly 


Personal Approach To Microcomputing. 














Pees eee ee ee eee ee eee eee eee eee 





























I am enclosing my (delete as necessary) 
: Ss UBSCRIPTION ORD ER Cheque/Postal yi Cal ras Money Nemananes I 
Order for £.s:inioeiss.s 
I FORM (made payable to ASP Ltd) : 
Cut out and SEND TO : . 
| Computing Today Subscriptions Hone riaeat Bercevcars | 
I 513, LONDON ROAD, ae ' ' 
i THORNTON HEATH, Saal ei i 
I GLANS Please use BLOCK CAPITALS and include post codes. I 
I Please commence my personal subscription to Computing Name (Mr/Mrs/Miss) ....- 2. 0-002 0reseeecee ee teeeeeeee I 
Today with the .......... issue. delete accordingly 
I (0. SA ere rr et ere creer eee) | 
: SUBSCRIPTION £11.50 for 12 issues EEE etree etter erent ere te ree eee nee | 
U. O 

I RATES £15.15 for 1Zissues eect reer eect eeeenenennneeeeeeeeees I 

(tick O as overseas surface (1) Blonatiive’y. Sacnctoar ss saaGoindewaew Bannae eRe | 
I appropriate) £34.75 for 12 issues se I 
I Overseas Air Mail Dialers lat sents hs caren enna sa Beene a 


inteviewer eee eet awe wae eee 
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As soon as you've 
demolished one wall 
with this game, you 
can always build 
another one. 


eres a program to test 
your reaction times and 
see just how good your 


judgement is. It’s an old 
favourite — for which I make no 
apologies since there's good 
reason for its popularity. It will 
keep the kids happily occupied 
for hours, but don’t fall into the 
trap of ‘just having a quick go 
at it’ — its compulsive and 
you'll be stuck there for hours! 


Another Brick In The 
Wall 


There are six rows of bricks and 
you have a bat and five balls. 
You have to break through the 
barrier, aiming to score as 
many points as possible. The 
front line of bricks are worth ten 
points each, and each 
succeeding row is worth ten 
more — so for every one you 
wipe out in the back row you'll 
add 60 to your tally. A really 
good move is to trap the ball 
between the back row and the 
edge of the screen and see it 
ricochet back and forth giving 
you a massive score. 

In this version you can set 
the speed of play — fast or 
slow. The display is in colour 
(yellow on blue) and uses sound 
— a satisfying noise when the 
ball hits your bat or the wall but 
a distressing sound accom- 
panying your ball as it goes out 
of play. The score is displayed 
continuously and is noted at the 
end of each game. 


TECHNICAL DETAILS 


This program has been written 
from scratch for the BBC Micro 
so it has a tighter structure than 
some of the conversions and 
reflects the way BBC BASIC 
can be used to advantage. 

The program is nothing 
more than a list of PROC calls 
and as such should be easy to 
understand and change. The 
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BREAKTHROUGH 


techniques used in each PROC 
are either straightforward or are 
similar to ones used in the 
converted programs. The only 
new feature is the changing of 
the repeat delay and rate to 
give improved control over the 
bat. If you take out lines 240 
and 250 you can see the 
problem of playing a moving 
graphics games controlled by a 
standard keyboard. Wnen you 
press one of the ‘arrow’ keys the 
bat moves once followed by a 
delay, and then the repeat 
facility causes it to move 
continuously at the repeat 
speed. This makes the bat very 
difficult to control. 

What we would really like to 
happen when a key is pressed is 
for the repeat to occur at once 
and very fast. This can be 
achieved by using *FX 11,1 and 
*FX 12,1 which changes the 
repeat delay and the repeat 
period to 1 millisecond. The 
command *FX 12,0 will restore 
the keyboard to normal 
function. 


HOW TO PLAY 


Select the speed at which you 
want to play (1 is faster than 2). 
The bat can move right and left 
through the use of the 
appropriate cursor control 
arrows (at the top right of the 
keyboard). The repeat 
‘mechanism is used for this game 
so if you keep your finger on an 
arrow it will continue to move; 
the speed of the repeats is very 
fast so you need to be very 
nimble fingered. 

Do not try to exit from the 
program by breaking in. At the 
end of each game the computer 
asks you if you wish to play 
again. The key repeat 
mechanism is restored to normal 
by the program if you exit 
properly — by replying ‘NO’ to 
this question. 
ror 










PROGRAM STRUCTURE 


Statement 


Set Up 








Lines 10-20 Selects MODE 4 and sets colour 
(red foreground and blue 
background). 

Calls the different procedures 
defined later in the program — 
that at line 30 prints the opening 
text, that at line 40 sets up the 
constants, that at line 60 draws 
the screen, that at line 70 prints 
es during the game and 
ine 80 controls play. 
Initial values and flags are set 
and the bottom two lines of the 
screen are blanked. Line 110 
generates a dull sound whenever 
the ball goes out of play. 
Enables keyboard to be restored 
to normal operation at end of 
play. 

Prints score message at end of 
game and asks if further play is 
required. 

Enables use of arrow keys and 
sets high repeat rate on 
keyboard. 




































Lines 30-140 Program 


Core 




































Restore 
Keyboard 


Lines 150-160 




















Lines 170-210 End Game 
















Lines 220-250 Set Keyboard 


















































































Lines 260-370 | DEFPROC-  |Defines characters for graphics 
CODE display and sets up constants. 

Lines 380-590 DEFPROC- | Displays text at beginning of 
TEXT game. 

Lines 600-660 DEFPROC-  |Prints graphics display on 
SCR screen. 

Lines 670-830 | DEFPROC- |Controls play when arrow keys 
PLAY are pressed. 

Lines 840-860 eee: Displays and moves bat. 

Lines 870-970 DEFPROC- | Displays ‘ball’; logic to move and 
BALL bounce ball. 

Lines 980-1000 | DEFPROC- | Sounds ‘beep’ noise when ball 
BEEP bounces. 

Lines 1010-1100] DEFPROC- Checks to discover whether the 
DB ‘ball’ has hit the wall and 





removes a double character 
block when a.hit occurs. Keeps 
score. 

Prints play messages for score 
and indicates which ball is in 
play. 

Displays rows of bricks with 
alternating patterns. 

Defines x and y co-ordinates for 
screen address. 






















DEFPROC- 
PLAYMES 


Lines 1110-1140 
















ODDROW & 
EVENROW 


Address 


Lines 1150-1240 


Line 1250 
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VDU 19,0,4,0,0,03VDU 19,1,3,0,0,0 
PROCTEXT 
PROCCODE 


SOUND 2,~-15,50,15 
PRINT TAB(O,30)3SPC( 40); 
PRINT TAB(0,28);SPC(40)} 
Ze 0 THEN GOTO 70 
xFX 4 0 
“FX 12 0 
PRINT TAB(O,31)3SPC(39); 
PRINT TAB(O,30);"YOUR SCORE FOR 
THIS GAME IS "“;SC 
INFUT"DO YOU WANT TO TRY AGAIN",AS 
AS=LEFTS(A$,1) 
THEN MODE 7:END 


GOTO © 
. DEFFROCCODE 

VOU 23,224,&8FF,8FF,&FF,&FF,&FF,&FF, 
&FF,8FF 

VDU 23,225,&CC,&33,8CC,&33,8CC,&33, 
&CC,8&33 

Le3 

MFX 4 1 

D=0 

E=0 

FeO 

Sc=0 

MFX 11 1 

KFX 12 1 

ENDFROC 

DEFFROCTEXT 

CLS 

PRINT 

PRINT TAB(8)3"B RE AK THROU G H" 
PRINTSP RINT $PRINT 

PRINT 

PRINT " The object of this game 

is to obtain" 

PRINT " as high a score as possible by" 
PRINT " demolishing the wall. 
PRINT 

PRINT " You will be given FIVE 
balls which" 

PRINT " you must hit with your bat." 
PRINT " Use the left and right 
‘arrow’ keys” 

PRINT " to move the bat." 

FRINT? PRINT 

PRINT " Points are scored for 
each brick hit." 
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PRINT " Bricks in the first row 
are worth 10," 

PRINT " in the second row 20, and 
so on up to" 

PRINT " 3 maximum of 60 in the 
last row." 

PRINT TAB(0,28);"SELECT SPEED OF 
PLAY (1=Fast,2=Slow)"$tINPUT H 
IF H<>1 AND H<>2 THEN GOTO 570 
ENDFROC 

DEFFROCSCR 

CLS 

FOR Y=4 TO 8 STEP 2 
PROCODDROW(Y) 

PROCEVENROW(Y+1) 

NEXT Y 

ENDFROC 

DEFPROCFLAY 

X=193Y=28 

PROCBAT(X,Y) 

FOR I=0 TO 1000+RND(S00)$NEXT T 
BY=10$8X=S+RND(5S) 
HV=CRND(2)-1)«2-12UY=1 
FROCBAT(X,+Y) 

D=D+1 

IF D=H THEN D=0!PROCBALL 

IF E=1 THEN ENDPROC 
A=INKEY(O)2IF A=-1 THEN GOTO 730 
*FX 15,0 

A=2x(A-&B88)-1 

IF A -1 AND A<>1 THEN 730 

IF X+A<0 OR X+A>38~1. THEN GOTO 730 
X=X+A 

GOTO 730 

DEFFROCBAT(X,Y) 

PRINT TAB(X,Y)3" "5 

STRINGS (L.,CHRS(244) 3" "3 
ENDFROC 

DEFFPROCEALL 

E=0 

PRINT TAB(BX,BY) 3" "3 


THEN HV=—HV$ 
; 0 
[F BY<0 THEN YV=—UU3BY=BY+UV SFR! 
IF ?FNS(BX,EY,0)<>0 THEN PROCE 
PROCDE(BX,BY) 
IF &Y=30 THEN E 
FRINT TA a SHR (224) 3 
PRINT TAI 
ENDFROC 
DEFPROCBEEF 
SOUND 2,-15,150,1 
ENDFROC 
DEFFROCDE(BX,BY) 
VUV=-UU 
IF BY>20 THEN F=0$ENDPROC 
$=-1 
IF INT(BX/2)«2=EX THEN S= 
PRINT TAB(EX+S, 
SC=SC+(10-BY) «10 
IF F=0 THEN F=1:ENDPROC 
yy=-uy 
ENDPROC 
DEFPROCPLAYMES 
PRINT TAB(O,31);"YOUR SCORE="3 
PRINT TAB(20,31);"BALL = "$6-E3 
ENDPROC 
DEFPROCODDROW CY) 
FOR I=0 TO 39 STEP.4 
PRINT TAB(I,Y) $CHRS(224) 5 CHRS(224) 3 
CHRE(225) $CHRS(225) 3 
NEXT I 
ENDPROC 
DEFFROCEVENROWCY) 
FOR I=0 TO 39 STEP)4 
PRINT TABCI,Y) }CHRS$(225) }CHRS(225) 3 
CHR$ (224) $CHRS (224); 
NEXT I 
ENDF'ROC 
DEF FNS(X,Y,N)=HIMEM+(YX40+X)XB4+N 











Converted from a program by A Lacy 


WORD 
SQUARE 


Find the hidden words 
in this the ultimate 
crossword that goes 
up, down, and alll 
around. Confused... 
you will be! 





PROGRAM STRUCTURE 


Lines 10-50 
Lines 60-180 
Lines 190-260 
Lines 270-410 
Lines 420-440 
Lines 450-650 
Lines 660-720 


Lines 730-770 
Lines 780-850 


Lines 860-870 


Lines 880-970 


Lines 980-1160 


Lines 1170- 


Lines 1240- 








Lines 1340- 








Initialise Defines arrays to be used. 


Instructions |Prints title and instructions. 
Shuffle 
Input 


Shuffles co-ordinates. 

Requests input, checks for end of 
list marker and calls routine to test 
each word for length and content. 
Prints message on screen and calls 
routine to sort words by length. 
Puts words in random directions 
and tests to ensure that they fit. 
Meanwhile prints message. 
Assembles words into array. 

Tries again if failed to achieve a fit. 
Failed to fit entire array. Gives 
choice of re-starting or seeing 
partial array. 

End of word fit loop. 

Prints Wordsquare without random 
letters. 

Requests title then prints 
Wordsquare (plus random letters) 
with list of words or dashes 
alongside. 

If words too long or if characters 
other than letters input, message 
displayed. 

Logic to move letters in all possible 
directions. 

Routine to sort words by length. 


VARIABLES 


Temporary storage integers. 

List of shuffled vertical co-ordinates. 
Temporary storage for vertical co-ordinates. 
List of shuffled directions. 

Temporary storage for single letter replies. 
List of shuffled horizontal co-ordinates. 
Temporary storage for horizontal co-ordinates. 
Temporary storage for inputted words. 

ie string array representing the Wordsquare. 
itle. 

List of inputted words. 

Pointers into W§(n). 

Used in row and column shuffle. 


Sort 
Fit Words 
Array 


Try Again 
Failed 


Loop End 
First Print 
Final Print 


nput Tests 


Directional 
Logic 




















he idea behind this game 

is that you give the 

computer a list of words on 
a particular theme and it hides 
them in a 15 by 15 grid of 
letters. First, the computer 
positions the words it is given, 
writing them in one of eight 
directions — forwards (that is, 
from left to right), backwards 
(from right to left), downwards 
(going vertically down the 
grid), upwards (going vertically 
up the grid) or along a diagonal 
in one of the four possible 
directions. The computer then 
fills in all the remaining spaces 
with random letters. The 
randomising method ensures 
that no two puzzles are similar 
even though they may contain 
identical words. 


Now You See Them... 


The Wordsquare can be 
displayed either with or without 
the list of words given originally 
alongside it. If you choose not 
to see the wordlist then a 
number of dashes 
corresponding to the actual 
words are printed so that you 
can tell how many letters there 
are in each word. However, if 
you are playing the game this 
way, the title you give the 
Wordsquare is very important 
as it indicates the sort of words 
to look for — after all, when all 
the random letters are added 
you may well be able to find 
words which were not actually 
intended! 

You can select up to 16 
words and each word can be up 
to 15 letters long. However, if 
you have a lot of long words the 
program will take longer to run 
and, if you stretch it too far, the 
computer may come back and 
tell you that it cannot cope. 
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HeSEK son 
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PRESS ANY KEY TO CONTINUE 


onmez m 
Sct HC HEV 


ated 


WORDSQUARES 


vu 
roe 
rPEeponz 


Entering the words which we wish to be 
hidden in the Wordsquare. Try to keep 
the words entered of the same sort of 
category (for example, people’s 
christian names) as otherwise the 
puzzle may prove very hard to solve. 
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ae 
a. 
me 
~ A 


wae eee Seco Meee 


eee Bee ee me 


sete Bee eee Meee 


The introductory text and instructions 
displayed by the program on RUNnii 


The program now builds the square 
with our words embedded in all 
directions, 


The final display, see over page, has 
the completed Wordsquare with its 
title and the optional list of embedded 
words printed out. 








WORDSQUARE 


Even with a moderate list, the 
computer takes some time to 
prepare its square. While it is 
processing the problem it prints 
‘Thinking Hard’, and repeats 
‘Hard’ to let you know it has not 
forgotten the problem. If it can't 
manage your list of words it will 
let you know and will give you 
the option of accepting the 
partially completed puzzle. It 
could be that it gave up very 
near the end in which case the 
Wordsquare will already be a 
challenge to unravel. 

The computer sorts the 
words by their length and 
produces its list with the longest 
ones at the top. This is because 
it places the longest words into 
the grid first and then the 
shorter ones are fitted around 
and through them. One letter 
can belong to more than one 
word — as in a crossword — 
except that it can be read along 
the diagonals as well. 


Checking Or Cheating? 
When the puzzle is constructed 
it will be displayed on the 
screen without the addition of 
the random letters. This is very 
useful for checking purposes — 
or for if you want to cheat; 
when others come to you after 
spending hours searching for 
the words you can pick up the 
puzzle and solve it in moments. 
If you really do not want this 
review, you could delete lines 
900-950, but instead of such a 
drastic measure you can always 
move on very rapidly so that 
you don’t notice much. 
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This puzzle has the added 
advantage that, if you have a 
printer, you can easily make a 
‘hard copy’ — just the job for 
train journeys or dentist's 
waiting rooms. 


TECHNICAL DETAILS 


This is a fairly straightforward 
program. The only real 
difficulty encountered 
converting it from TRS-80 
BASIC was the way FOR loops 
were jumped out of and re- 
started. Some BASICs protect 
you from this most evil practice 
by checking to see if there are 
any active FOR loops using the 
same index variable every time 
you start a new FOR loop. If 
there are then the old FOR loop 
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YOU WANT THE WORDLIST FRINTED ? 
COMPUTER 


WORDS 


2 
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COMFUTER 
SOFTWARE 
FORTRAN 
PRINTER 
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is cleared up and the new one 
takes its place. 

The BBC Micro, however, 
won't let you be this sloppy and 
requires each FOR loop to be 
completed before a new one, 
using the same index variable, 
can be started. The premature 
ending of FOR loops in the 
original version has been 
overcome either by the use of 
end of loop flags or by setting 
the index variable to its 
maximum value and jumping to 
the correct NEXT statement. 


HOW TO PLAY 


The computer will ask you to 
type in your chosen words. 
Type them one at a time and 
press Return after each. The 
computer will prompt for each 
with a ‘?’. If you want to finish 
he list at any point, type '@’. 
After you've typed in the 
ist, the computer will take a 
little time to ‘hide’ them prior to 
displaying the Wordsquare 
before the addition of the 
random letters that will obscure 
he initial words. The computer 
will then ask whether you wish 
to have a list of the words 
printed out. You will also be 
asked to give the puzzle a title 
— to indicate the type of words 
which are hidden in it. 

If you have a printer 
interfaced to your BBC Micro, 
type ‘CTRL B' to make a hard 
copy of the Wordsquare. 
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REM WORDSQUARE 
REM 
REM INITIALISE 
CLS 
DIM C(15),R(15),D(8),W$(17),S$(15,15), 
R2(15),C02¢15) 
PRINT? PRINT TAB(10)}"WORDSQUARE ” 
PRINT 
PRINT 
PRINT "FOR THIS PROGRAM, TYPE IN A 
LIST OF" 
PRINT "UF TO 16 WORDS OR TYPE @ IF 
YOU WISH" 
PRINT "TO USE LESS" 
PRINT3PRINT "THE MAXIMUM NUMBER OF 
LETTERS IN A WORD" 
PRINT "IS 15, BUT IF YOU USE TOO 
MANY LONG" 
PRINT "WORDS THE PROGRAM WILL TAKE AGES" 
PRINT "TO RUN, IN FACT IT MAY NOT BE" 
PRINT "ABLE TO FIT YOUR WORDS IN AT ALL" 
PRINT "IF SO IT WILL TELL YOU 
(EVENTUALLY) !" 
PRINT TAB(0,30);"PRESS ANY KEY TO 
CONTINUE" $A$=GETS 
REMX*SHUFFLE COORDINATES 

R A=1 TO 15iC(A)=ASR(AD=ALIF 
A<9 THEN D(A)=A 
NEXT 
FOR I=1 TO 2 
FOR A=1 TO 15 
R1=RND (15) ¢RZ2=RND(15)2X1=R(R1)$ 
XZ=C( RZ) $RCR1II=RCA) SCCRZ)=C (A) ER(AD=X15 
C(A)=X2 


NEXT 

NEXT I 

REMXxXINPUT WORDLIST 
CLS$PRINT 

PRINT"NOW TYPE IN YOUR LIST" 
E=0 

FOR W=1 TO 16 


IF E=1 THEN GOTO 390 

INFUT S$:IF S$ “ THEN E=13V=W-1 tgg$="" 
W$(W)=S$ 

REMXXTEST THE WORD FOR LENGTH AND 
CONTENT,S IS ERROR FLAG 

S=0 

IF E=0 THEN GOSUB 1180 

IF S=1 THEN 330 

NEXT W 

IF E=0 THEN V=16 


"RINTSPRINT "THIS COULD TAKE 
ME A FEW MINUTES” 
REMXXSORT WORDS, LONGEST FIRST 
GOSUB 1350 
REM*xXCHOOSE THE NEXT WORD 
FOR Wi=1 TO W 
REMKXRANDOMISE DIRECTIONS 
FOR A=1 TO 8{R=RND(8)2X=D(R)? 
D(R)=D(A) $D(A)=X3NEXT 
REMxxCHOOSE A COORDINATE 
FOR R=1 TO 15 
PRINT "THINKING "+ 
FOR C=1 TO 15 
REMXXCHOOSE A DIRECTION 
FOR D=1 TO 8 
R2=R(R) $C2Z=C(C) 
REMXXCAN IT BE FITTED? 
E=0 
FOR I=1 TO LEN(W$(W1)) 
S$=MID$(W$(W1),I,1) 
REMXXOFF THE EDGE? 
IF R2>15 OR R2<1i OR C2>15 OR C2<1 
THEN I=LEN(W$(W1))%E=13GOTO 690 
IF S$(R2,C2)<>"" AND S$(RZ,CZ)<>S$ 
THEN I=LEN(W$(W1))¢E=12GOTO 690 
Ri=R2{C1=C2:R2(1)=R2:C2(1)=C2 
ON D(D) GOSUEB 1250, 1260, 1270, 
1280, 1300, 1310, 1320, 1330 
NEXT I 
REMxXxOK WE HAVE A WORDFIT SO PUT 
IT IN THE ARRAY 
FOR T=1 TO LEN(WS$(W1)) 
S$(R2(T),C2(I) )=MIDS(W$(W1),1,1) 
NEXT I 
IF E=1 THEN E=0:GOTO 720 
D= 
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NEXT D 
IF E=1 THEN C=15!R=15:GOTO 760 
REMXXMUST HAVE FAILED TO FIND FIT 
SO TRY ELSEWHERE 
PRINT "HARD!" 
NEXT C 
NEXT R 
IF E=1 THEN E=0:GOTO 870 
REM*xTO GET HERE MUST HAVE FAILED 
FOR ENTIRE ARRAY 
CLSSPRINT{PRINT "SORRY, I CANT 
COPE WITH’ " 
PRINT: H$(W1)3"DO YOU WANT TO START " 
PRINT"AGAIN (FRESS ’S’) OR FRINT QUT THE" 
PRINT" PARTLY DONE WORDSQUARE 
ANYWAY (PRESS ’P’)" 
Q$=GETS 
IF Q$="S" THEN RUN ELSE CLS? GOTO 900 
REMXxXGET THE NEXT WORD 
NEXT W1 
REMXXPRINT OUT THE ARRAY TO SCREEN 
PRINT "GOT IT!!! !"$3FOR A=1 TO 
2000:NEXTICLS 
FOR R=1 TO 15 
PRINT 
FOR C=1 TO 15 
IF S$(R,C)="" THEN PRINT". "3 
ELSE FRINT S#$(R,C)3" "3 
NEXT C 
NEXT R 
PRINTIPRINT?PRINT "PRESS A KEY"$ 
Q$=GETS$ 
CLS 
PRINTSPRINT'TYPE IN A TITLE FOR 
YOUR WORDSQUARE" 
PRINT "THEN PRESS RETURN" 
INPUT TS 
PRINT 
PRINT "DO YOU WANT THE WORDLIST 
PRINTED ?"3 
Q$=GET$ 
IF Q¢: Y" AND Q N" THEN 1040 
PRINTSPRINTSPRINT TAE(15)$T$ 
PRINT 
FOR R=1 TO 15 
FOR C=1 TO 15 
IF S$(R,C)=""_ THEN PRINT 
CHR$(RND(26)+64)3" "SELSE PRINT S$(R,C)3 
; 
NEXT C 
IF Q$="N" THEN PRINT TAB(30)} 
STRINGS$(LEN(W$(R)),"-") ELSE PRINT 
TAE (30) $W$(R) 
NEXT R 
IF W 6 THEN END 
IF Q$="N" THEN PRINT TAB(30)} 
STRING$(LEN(W$(W)),"-") ELSE PRINT 
TAB (30) FWSCH) 
END 
REMXXINFPUT TESTING 
IF LEN(W$(W))>15 THEN S=13 
PRINT"THIS WORD IS TOQ LONG, TRY AGAIN": 
RETURN 
FOR A=1 TO LEN(W$(H)) 
S$=MID$(W$(W) ,A,1) 
IF S$<"A" OR S#>"Z" THEN S=13 
A=LEN(WS$(W) D7 
IF S=1 THEN FRINT "LETTERS ONLY PLEASE" 
RETURN 
REM*XHORIZONTALS AND VERTICALS 
1¢RETURN 
1:RETURN 
1RETURN 
V1i-1$RZ=R1 + RETURN 
REMXXNOW THE DIAGONALS 
R1+1°C2=C1+1!RETURN 
. 1-1RETURN 
+13RETURN 
¢1-13C2=C2-1!RETURN 
REMX*XWORDLENGTH SORT 
S=0 
FOR Wi=1 TO W-1 
IF LEN(W$(W1))<LENCWS$(W1+1)) 
S$=W$(W1) IWS CWLI=WS (W141) SNS (W141) 8583 
S$=1 
NEXT 
IF S=1 THEN 1350 
RETURN 











Mike James 





SQUISH 


you can 


See how long yon 
in play. 


keep the ba 





Lines 10-30 


Lines 40-90 
Lines 100-170 


Lines 180-320 
Lines 330-400 


Lines 410-540 


Lines 550-630 


Lines 640-690 
Lines 700-790 


Lines 800-830 
Lines 840-890 


Lines 900-990 


Lines 1000-1030 





Line 1040 


DEFPROCTEXT 
DEFPROCINIT 


DEFPROCPLAY 


DEFPROCSCR 


DEFPROCBAT 
DEFPROCBALL 


DEFPROCFIN 





DEFPROCDIR 
DEFPROCMES 


DEFPROCBEEP 


Screen Memory 


PROGRAM STRUCTURE 


Selects MODE 4 and calls 
routines to display text and to 
initialise variables. 

Delivers five balls to player. 
Line 100 calls routine used at 
finish of use. Line 110 calls that 
to display end of turn 
messages. Lines 120 to 170 give 
option of another turn and 
return to MODE 7 if not 
required. 

Clears screen, prints title and 
instructions. 

Defines graphics character 224 
as a solid square and sets 
background colour to red. 
Lines 380-390 give 
instantaneous repeat when a 
key is pressed and line 400 
enables use of arrow keys. 
Defines array T for timing. 
Calls routine to display ‘court’, 
prints number of ball and 
releases ball from random 
position behind bat. Calls 
routine to draw bat. Times play 
and prints time and bleeps 
when ball is lost. Calls routine 
to move bat. 

Displays three-sided playing 
area. 

Displays moving bat. 

Displays ball and unplots its 
old positions. Calls routine for 
sound and updates time on 
bounce or if ball goes out of 
play. 

Restores arrow keys and repeat 
key to normal operation. 
Responds to press of arrow keys 
by appropriate movement. 
After a short delay, clears 
screen and displays times taken 
for each ball. 

Emits bounce sound and 
updates time displayed. 

Gives address of point x,y on 
screen. 








his seemingly simple game 

is actually trickier than 

you'd imagine. The object 
of the game is to keep returning 
the ball for as long as possible. 

A three-sided ‘court’ is 

displayed on the screen and a 
‘bat’ is positioned near the open 
side (on the left). The bat can 
be moved up and down using 
he cursor control (arrow) keys. 
Towards the far wall (the right- 
hand side) there is a ‘grid’. The 
effect of this grid is to deflect 
the ball sometimes and increase 
he difficulty of judging where 
the ball will return to. 

You have five balls and the 
ime each ball spends ‘on 
screen’ is displayed while you 
play. At the end of your turn, 
he time taken for each ball is 
isted. 


TECHNICAL DETAILS 


The techniques used in this 
game are similar to those used 
in ‘Breakthrough’. Details of the 
screen mapping and keyboard 
repeat functions can be found 
there. 


HOW TO PLAY 

When play starts, the ball will 
come from a random position 
behind your bat, will bounce 
around the court and then 
return towards the open end. 
Here you must hit it or it will go 
out of play! 

Use the UP and DOWN 
arrow keys to control your bat. 
The repeat function has been 
set so that the bat will continue 
to move all the time you keep 
one of these keys depressed. 

At the end of each turn you 
have the option of another go. 
Typing ‘NO’ to this question is 
the only way to terminate play 
— if you try exiting from it by 
any other means, the repeat key 
will still be set in instantaneous 
mode, with disastrous results! 
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Left: The introductory page from the 
program. 


pg obs eet ar spt sah psn i to kee ne 
in play for as long as possible. 
= Us BALL Wo. 1 


You will have five balls and the time 
for each is recorded separately. 


Use the ‘up’ and ‘down’ arrow keys 
to move the bat 


any key to start 





Right: The game in action, so far the 
player has scored 393 with his first ball. 





GOTO 490 

ENDPROC 

DEFFROCSCR 

CLS 

PRINT TAB(O,+5 STRINGS (40,CHR$(224)) 


UNTIL. 
PROCFIN 
FROCMES 
INPUT "Another 
T#(AS,1) 
Y" THE :GOTO 30 
CF “N" THEN F N ANSWER Yes 
or No":GOTO 20 
MODE 7 
END 
DEFFPROCTEXT 
CL 
PRINT SPRINT Bi ; uIs nH" 
INT? PRINT SPR 
INT" The t f is game is 
keep the 
PRINT " ball F r s long 
as possible, 
PRINT 
PRINT " You wil e balls 
and the time" 


FRINT " for eac ed separately. 


PRINT 
PRINT " Use the ‘u own’ 
arrow keys" 
FRINT " to move th 
PRINT 25)3;"Pre 
“GETS 


VDU 23,224,8FF,&FF.&FF 
&FF aE 

YVDU 19,0,1,0,0,0 

KFX 11 2 

FX 12 4 

“FX 4 4 

DIM TéS) 

ENDFRO 

DEFFROCPLAY 

PROCS 

PRINT T +1) 3"BALL No. ";6-BALL; 
X=O2Y=RNDC1O)4+10 
XB#63YB=102A=1HVeL yer 
Eso 

PROCBAT? PROCBAT J PROCBAT 


1 THEN T¢6~BALL > =TIME ¢ 
SOUND 2,15,100,20°FRINT TAB(20,1)3 
T(6~BALL > SENDPROC 
FROCOIR 
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1010 
1020 
ie 
1040 








3 
PRINT TABCO );STRING$(40,CHRS(224))3 
FOR I=5 TO 30 
PRINT TAB(39,I) $CHR$(224) } 
IF INT(I/4)*4=I THEN PRINT TAB(28,1)3 
CHRE (224) 3 
NEXT I 
ENDPROC 
DEFPROCBAT 
YB=A+YE: 
IF YE<7 THEN YB=YE+1 
IF Y&>28 THEN YB=YE~1 
IF A= THEN PRINT TABCXB, YE+1) }CHS$(224) 
TAB(XB,YB-2)3" "SELSE PRINT TAE (XE, YE~1) 
CHR$(224)33IF YE<>28 THEN PRINT 
TABCXB,YEm2)35" "3 
ENDPROC 
DEFPROCBALL 
OX=X i 0Y=Y 
X=X+HY Yruy 
IF X<1 THEN E=13ENDFROC 
IF X239 THEN PROC SP SHVe~HVSX=X+HV 
IF Y<6é OR Y>29 THEN PROCBEEF? 
VU=-UUEY=Y4UYy 
iF PEt X,Y,0) 0 THEN PROCBEEFS 
HY=-HUtX=X4NY 
IF XE OX OR YE OY THEN PRINT 
TAB (OX,OY) 3" 
PRINT TABCX,Y)$CHRE(224)$ 
ENDPROC 
DEFPROCFID 
KFX 4,0 
*F 12,0 
ENDPROC 
DEFFPROCDIRF 
A=INKEY CO 
«FX 15,0 
A=-(2*(A-&BA)—1) 
IF A 1 AND A 1 THEN A=0 
ENDFROC 
DEFPROCMES 
FOR I=1 TO 10003NEXT I 
CLS 
PRINT : 5,103 yur times werei" 
PRINT 
FOR I=1 TO 
PRINT "BALL "313 TABCL1O)3T(T)/1003 
TABCLS ECONDS" 
NEXT TI 
PRINT 2 PRINT 
ENDFROC 
DEFPROCBEEP 
SOUND 2 1S-1560.1 
PRINT TAB(20,1)?TIME? 
ENDFROC 
DEF FNS(X,Y.N)=HIMEM+(Y*40+X)*84N 


Converted from a program by Ian L Powell 


BATTLE OF 
BRITAIN 





Try not to let history 
be re-written as you 
run this simulation. 








his program is based on 
two months (August — 
September, 1940) of the 
Battle of Britain. The computer 
plays the German side and its 
objective is to cripple Fighter 
Command. You command the 
British side and your objective 
is to inflict enough casualties to 
deter further attack. The game 
is played over ten turns, 
simulating one week of action 
per turn. During each turn the 
German side launches three 
attacks on Britain. These raids 
can be aimed at: 
A — Fighter Bases 
B — Radar Stations 
C — Industrial Centres 
The British have 100 industrial 
factors at their disposal. These 
factors may be used to build 
fighters or radar stations; the 


term, radar station, also 
includes various ground 
defences. Fighters cost one 
industrial factor each and radar 
stations cost ten iridustrial 
factors each. 

Industrial factors are 
renewed at the start of each 
week. However, industrial 
factors can be destroyed by 
bombing, in which case they 
are permanently lost, and so the 
otal of available industrial 
actors will dwindle as the 
weeks pass 


Blitzed Again 


n combat, British fighters are 
worth more than German 
ighters. This is simply because 
the German fighters are 
escorting bombers, and thus 
ave less freedom of action. 














German industrial factors 
cannot be replaced because of 
the small time scale, just ten 
weeks. 

German experimental 
fighter-bomber Gruppes have 
been added to the bomber 
force. German 110 twin engine 
fighters have been ignored, 
except when operating as 
bombers. 

For the purpose of this 
game, initial historical German 
tactics are maintained 
throughout the entire game. 
Historically, heavy casualties 
forced the Germans to operate 
small bomber formations with 
large fighter escorts from mid- 
September, 1940 onwards. 
British reinforcements of about 
100 fighters per week are also 
fairly accurate although the lack 
of trained pilots (simulated by 
switching resources to other 
things) made this figure 
considerably lower in practice. 

German reinforcements, 40 
fighters and 125 bombers per 
week, are approximately 
accurate too; the bomber 
figures are 35% larger but this 
simulates the return of damaged 
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WEEK 1 

FIGHTERS 800 

RADARS 12 

INDUSTRIAL FACTORS 100 
HOW MANY NEW RADARS712 
TOO MANY FACTORS 

HOW MANY NEW RADARS7S 
HOW MANY NEW FIGHTERS?7590 


RAID 1 
RADAR REPORTS 1082 BANDITS 
YOU HAVE 800 FIGHTERS OLD BEAN 
HOW MANY TO SCRAMBLE 7500 
BRITISH LOSSES 39 
GERMAN FIGHTERS 34 BOMBERS 125 
S8 FIGHTERS LOST ON GROUND 


RAID 2 

RADAR REPORTS 611 BANDITS 

YOU HAVE 300 FIGHTERS OLD BEAN 
HOW MANY TO SCRAMBLE 7 


YOU HAVE 150 FIGHTERS OLD BEAN 

HOW MANY TO SCRAMBLE 7100 

BRITISH LOSSES 27 

GERMAN FIGHTERS 9 BOMBERS 28 
24 FIGHTERS LOST ON GROUND 


RAID 3 

RADAR REPORTS 869 BANDITS 

YOU HAVE 38 FIGHTERS OLD BEAN 

HOW MANY TO SCRAMBLE 738 

BRITISH LOSSES 14 

GERMAN FIGHTERS 3 BOMBERS 12 
2 RADARS LOST 


GERMAN FORCES NOW STAND AT 
787 FIGHTERS & 1538 BOMBE! 


WEEK 2 

FIGHTERS 728 

RADARS 15 

INDUSTRIAL FACTORS 100 
HOW MANY NEW RADARSTG 
HOW MANY NEW FIGHTERS7SO 
TOO MANY FACTORS 

OW MANY NEW FIGHTERS? _ 





bombers to field 

Initial game 
be very heavy. Roughl; 
he German bomber ca 
will be regarded as 
only. 


Victory Rolls OK 

f the Germans have fal 
below 1,000 bombers a 
of a new move, they will 
up the attack and the Bri 
will win. You will be a hero 
However, if the British drop 
elow 500 fighters at the start 

a new move, they will be 
invaded and crushed. You will 
be shot!! 

at the end of the game, 

he British have more points 
value left than the Germans, the 
British win having staved off 
invasion. You will be given a 
nighthood. If at the end of the 
game, the Germans have more 
points left than the British 
(bombers count 1, fighters 
count 3) then the Germans will 
continue their attack, but you 
won't be there to stop them. 
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Statement 





Calculation | Calculates va 














Next Week | Reports condition of opposi 


nd Game 





RAID 2 
RADAR REPORTS 1418 BANDITS 
YOU HAVE 328 FIGHTERS OLD BEAN 
HOW MANY TO SCRAMBLE 7300 
BRITISH LOSSES 40 
GERMAN FIGHTERS 30 BOMBERS 76 
20 INDUSTRIAL FACTORS LOST 


RAID 3 

RADAR REPORTS 316 BANDITS 

YOU HAVE 28 FIGHTERS OLD BEAN 

HOW MANY TO SCRAMBLE 728 

BRITISH LOSSES 8 

GERMAN FIGHTERS 1 BOMBERS 12 
© RADARS LOST 


GERMAN FORCES NOW STAND AT 
762 FIGHTERS & 1511 dOMBERS 


WEEK 3 

FIGHTERS 691 

RADARS 21 

INDUSTRIAL FACTORS 8° 
HOW MANY NEW RADARS? _ 


YOU HAVE SSS FIGHTERS OLD BEAN 
HOW MANY TO SCRAMBLE 75 
BRITISH LOSSES 5 
GERMAN FIGHTERS © BOMBERS 2 
26 FIGHTERS LOST ON GROUND 


RAID 3 
RADAR REPORTS 1018 BANDITS 
YOU HAVE S37 FIGHTERS OLD BEAN 
HOW MANY TO SCRAMBLE 71 
BRITISH LOSSES 1 
GERMAN FIGHTERS © BOMBERS © 
10 INDUSTRIAL FACTORS LOST 


GERMAN FORCES NOW STAND AT 
772 FIGHTERS & 1654 BOMBERS 


WEEK 7 

FIGHTERS 459 

RADARS 20 

INDUSTRIAL FACTORS 23 

YOU HAVE LOST THE WAR AND WILL BE SHOT 





PROGRAM STRUCTURE 


Function 


Set Up Selects MODE 7 and sets initial 


values of the variables. 


Prints recurrent variables at 
beginning of week. 


End Game h ae her you ‘won’ or ‘lost’ 
S 


te message. 
bles and 
introduce dom element. 

iables and introduces 
random element 








Messages Reports on state of play 


Works out the effects of raid and 
fighter attack. 


Raid End Reports results of raid 
Losses Calculates ‘extra’ losses and prints 


appropriate message 





n¢ 
orces at beginning of cibescttett 
weeks. 

Messages for indeterminate ending. 
Prints message if you use more 
actors than there are available 











BATTLE OF BRITAIN 


HOW TO PLAY 


You have to decide how many 
of your fighters to scramble on 
each raid — and during any 
week, each of your aircraft can 
only be used in one of the three 
raids. You also have to decide 
how to use your quota of one 
hundred industrial factors; you 
can use them on either radar 
(each of which will cost you ten 
factors) or on new fighters 
(which only cost one factor 
each). If you try to use more 
factors than you have, the 
computer will let you know and 
allow you to adjust your plans. 
The computer will prompt for 
all the decisions you have to 
make. 


MODE 7 

A=800! B=12$ C=100! D=800% E=1600 
FOR W=1 TO.10 

PRINT 

PRINT "WEEK "3W 

PRINT "FIGHTERS "3A 

PRINT "RADARS "3B 

FRINT "INDUSTRIAL FACTORS "$C 

IF A = 500 THEN PRINT "YOU HAVE 
LOST THE WAR AND WILL BE SHOT" 

IF E < 1000 THEN PRINT "YOU HAVE 
WON THE BATTLE AND ARE A HERO" 

IF A500 OR E<1000 THEN PRINT?END 
INFUT "HOW MANY NEW RADARS" ,F 

IF Ce10*xP THEN GOSUB 870:GOTO 120 
INPUT "HOW MANY NEW FIGHTERS",K 


IF (C-10xF)<K THEN GOSUB 870:GOTO 140 


M=At t05E 
FOR TO 3 
IF THEN Q=RND(2) 
IF R=2 THEN ND(3) 
IF R=3 THEN NDZ) +1 
IF R=1 THEN G=RNDCINT(N/2Z))? 
F=RNDCINT(O/2)) 
IF R=2 THEN G=RND(N-1)?F=RND(O-1) 
IF R=3 THEN G=NiF=0 
N=N-G!0=0-F 

3-BiIF X<1 THEN X=1 

NTC CCG+F)*X)/10) 
X=RND(2*Z)~-Z 
PRINT 
PRINT "RAID "$R 
IF B<1 THEN PRINT "YOUR RADAR IS 
DEAD":GOTO 320 
PRINT "RADAR REFORTS "“;ABS(G+F+X) > 
" BANDITS" 
PRINT "YOU HAVE "33" FIGHTERS 
OLD BEAN":GOTO 330 
INFUT "HOW MANY TO SCRAMBLE ",H 
IF H>M THEN PRINT "TOO MANY 
FIGHTERS OLD BEAN "iGOTO 330 
M=M-H 
S=5xXH! T=6x3+F 
IF ABS(S-T)xS=(S+T) THEN GOTO 410 














X=RND(3)4+B83U=INT( CT+INT(X/2) 7X) 
X=RND(3)+82VSINT((S+INT(X/2))/X) 
GOTO 450 

IF S&T THEN GOTO 440 

U=INT(T/9) $V=INT(S/12) 

GOTO 450 

U=INT(T/12) V=INT(S/9) 
L=INTCU/S)3L=0%U=03IF Vo0 THEN 
T=INT(CRND(V)4V)/9) $ J#V-Ix3 

IF L>H THEN L=H 

IF I>G THEN I=G 

IF J>F THEN J=F 

PRINT "BRITISH LOSSES "$L 

PRINT "GERMAN FIGHTERS "313 

BOMBERS "3J 

IF S>=T THEN X=8 

IF ST THEN X=12 

IF S<2«T THEN X=18 

X=(F-JI) aX 

A=A-LID=D-IiEsE~J 

IF Q=2 THEN GOTO 640 

IF Q=3 THEN GOTO 680 
X=INTC(X~100)/200)3IF X>A THEN X=A 
IF X<0 THEN X=0 

IF R=Z2 THEN M=M~INT(X/2) 

IF M<0 THEN M=0 

PRINT X$" FIGHTERS LOST ON GROUND" tA=A~x 
GOTO 710 

X=INT((X-2000)/4000)32F X*B THEN X=E 
IF X<0 THEN X=0 

PRINT X3" RADARS LOST "iB=E-X 

GOTO 710 

X=INT((X-400)/800)2IF X*C THEN X=C 
IF X<0 THEN X=0 

PRINT X$" INDUSTRIAL FACTORS LOST" $C=C~x 
NEXT RS PRINT 

A=A+K 3 B= 

D=D+40 

PRINT"GERMAN FORCES NOW STAND AT " 
PRINT D3" FIGHTERS & "3E$" BOMBERS" 
NEXT W 

IF AXS*Dx3+E THEN GOTO 830 

PRINT “THE GERMANS WILL CONTINUE 
THE ATTACK" 

PRINT "YOU ARE NOW THE AMBASSADOR 
OF KALAMAZOO" 

PRINT "DON’T COME BACK" 

PRINT 

END 

PRINT "YOU HAVE STAVED OFF INVASION" 
PRINT "YOU HAVE BEEN KNIGHTED" 
PRINT 

END 

PRINT "TOO MANY FACTORS"? RETURN 
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7p? 
‘COMPUTING 


Britain's Biggest Magazine For The Sinclair User 















Over 100 pages of information and programs for the ZX81 and ZX80 
user including a 1K Chess routine! 






ZX Computing is a quarterly magazine with over 100 pages of programs, ar- 
ticles, hints and tips for the ZX81 and ZX80. We've put the magazine together 
with just one aim in mind — to make sure you get the most use and enjoyment 
out of your Sinclair computer. 

In the first issue, as well as a host of IK and 16K programs (the majority 
dumped directly onto the printer), we've got two articles to help dispel the 
mysteries of machine code, a chess routine which takes up just 1K, an ex- 
planation of PEEK and POKE, an entire section on business uses of the ZX8] 
(complete with a program to handle the accounts of up to 100 customers) and 
a construction article which will show you — even if you've never used a 
soldering iron before — how to cheaply double the memory on your ZX8l. 

If you're serious about exploring the full potential of your Sinclair com- 
puter, and you want an easy-to-understand series of articles to improve and 
develop your programming skills, then ZX Computing is for you. Issue one is 
on sale now. 




















@ Software Reviews — which programs are the best buy? 
@ Business Routines — put your ZX to work! 

@ Expansion Systems — how good and how much? 

@ Machine Code for ZX81— secrets revealed at last! 

@ DIY Memory Upgrade — cheap way of adding bytes 
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Converted from a program by Paul Williams 


No need fo get 

Is ‘blooded’ here, 
saddle up and join 
the humane hunters. 


ox and Hounds is a game 

of strategy played ona 

chess board grid displayed 
on the computer's VDU. The 
sole object of the game is to 
trap the fox which is 
automatically operated by the 
computer, with the pieces you 
control, the hounds. The fox 
starts from the top of the board 
and the hounds at the bottom. If 
the fox reaches the bottom row 
of the board before being 
trapped, it has ‘won’. 

The fox can move both 
forwards and backwards, like a 
bishop in chess, the hounds 
may move only forwards. All 
the pieces on the board move 
diagonally by one square at a 
time. 


Tally Ho! 

You can win by surrounding the 
fox with the hounds so that it 
cannot move or you can trap it 
into a corner or against the side 
of the board. The algorithm 
used by the computer is fairly 
ruthless — it will not step into 
any traps it can spot. 


TECHNICAL DETAILS 
The program was converted 
from PET BASIC and extensive 
use is made of the VDU 23 
command to define block 
graphics characters. The usual 
PET POKE graphics have been 
completely changed into PRINT 
TAB(X, Y) commands, 


ol 


















If you have the Model B one 
possible suggestion is to use 
MODE 1 and colour the Fox 
and Hounds differently, it just 


Photograph courtesy of Rank Film Distributors adds variety! 
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PROGRAM STRUCTURE 


Statement 


Lines 10-20 
Lines 30-170 
Lines 180-240 


Lines 250-450 
Lines 460-540 
Lines 550-920 


Lines 930-940 


Lines 950-990 


Lines 1000-1030 





Lines 1080-1090 


Lines 1040-1070] Mov 





Set Mode 
Characters 


Start 


Set Board 
Pieces 


Move Logic 


Patterns 
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Selects MODE 4 and sets 
foreground colour to yellow. 
Defines graphics characters (see 
Table 1). 

Prints title and asks for player to 
decide how many hounds are 
required 

Displays board, and tex! 
right of it. 

Calls subroutines to set up pieces 
in position and display them. 
Computes move logic. If move is 
legal it will be implemented. If not 
permitted, a ‘bleep’ sounds 
Creates the ‘fox’, the ‘hounds’ and 
the blank spaces by combinations 
of the characters defined at the 
beginning of program. 

Routine to print pieces at the 
required positions on the board. 
Restarts game if required 
Additional logic, relating to earlier 
section. 

Message displayed if computer 
wins 


to the 











BGnBE? 


YOUR MOVE 





GRAPHICS 
CHARACTERS 


The following table shows the 
graphics characters used to 
create the fox and hounds. 


ill 


ih 
ln 
lh 





The screen photographs below show, 
clockwise from top left, a game in 
progress. If the fox moves fo co- 
ordinate 4,2 the game will be lost as 
the hounds cannot move backwards. 


s  FBinBEP 


YOUR MOVE 


7Z182 


s Stub? 


YOUR MOVE 


6 72213 





FOX AND HOUNDS 
A RS 


square reference and the 1122. This indicates that we 
HOW TO PLAY second two being the wish to move from the bottom 
After the board has been destination square reference. left-hand square to the square 
constructed on the screen you The input is terminated by with co-ordinates 2,2. All the 
must wait for the cursor to pressing Return and the moves are indexed from the 
appear in the top right-hand computer will then move your bottom left-hand corner, this 
corner. At this point the hound to the selected square. being 1,1. The co-ordinates are 
program is waiting for you to The computer checks all taken along and then up; that is 
input a set of co-ordinates entered moves for validity andif you quote the column number 
which relate to the piece you the move requested is illegal, first, followed by the row 
wish to move. The input string the input string is deleted and number to select a square. 
is expected to be a four you must try again. The game may be 
character code with the first two As an example of the move terminated at any point by 
characters being the current input we could input the string —_ typing ‘STOP’. 








MODE 4 

YDU19,1,43,0,0,0 

YDUZS, 224, &CC, 833, &CC, R33, 8CC,R33,&CC, 833 
YDUZS, 225,801,801,801,801,801,801,801,801 
YDUZ3, 226, &C0, 800, &C0,8C0,8C0,8C0, 800,800 
YDUZ3,227,8FF,0,0,0,040,0,0 

YDUZ3, 228, &FF, &7F ,83F,R1F,80F ,807,803,801 
VDUZ3, 229,801,803, 807,80F ,81F RSF, &7F RFF 
YOUZ3, 230, 880,8C0, 8E0,&F0,8F8,&FC,8FE,aFF 
VDU23, 231, 8FF,&FE,&8FC,&F8,8F0,8E0, 800,880 
YDU23, 232, 8FF, FF, &FF,&FF,&F0,8F0,8F0,8F0 
YDUZ3, 233, &FF,&FF,&FF,&FF,&FF, RFF, &FF,&FF 
VDUZ3, 234, FF, &FF,8FF,&FF,&80F ,80F ,80F,80F 
YDUZ3,235,8F0,8F0,8F0,8F0,8FF»8FF, RFF, &FF 
YDUZ3, 236, 8F0,8F0,&F0,8F0,8F0,8F0,8F0,8F0 
YDUZ3, 237, 80F ,80F,80F,R0F,ROF,ROF,80F ,R0F 
YDUZ3,238,0)0+0,0,0,0;0,8FF 

PRINT 

PRINT TAB(1003;"F OX & HOUNDS" 
PRINTIRRINTIFRINT'How many houndss "3 
INFUT"2=4, type 1 for random",@ 

IF Q<1 OR Q>4 THEN 210 

IF Q=1 THEN Q=RND(2)+2 

Q=Ox2=4 

AS=STRING$(3,CHRS(224)) 

B " 

DIM AC10,10),B¢27) 

CLS 

PRINT 

FOR Asi TO 4 

FOR B=1 TO 3 

PRINT CHRS(225) ;ASFESSASSESSASFES FAS; ES5 
CHR (226) 

NEXT & 


FOR B=1 TO 3 
PRINT CHRE (225) SESS ASSESS ASI ESFASFES SASS 
CHRS (226) 


NEXT E& 
NEXT A : 
FRINT " "3 STRING$(24,CHRS (227) >) 
PRINT TAE (1,0) $STRING$(24,CHRS(238)) 
FOR I=0 TO 7$PRINT TAB(IK3+2,26)31+13 
NEXT 
FOR I=0 TO 7!PRINT TAB(26,1%3+2) 58-13% 
NEXT I 
FOR A=1 TO 27:READ BCA) SNEXT A 
PRINT TAB(30,1)3"FOX AND" 
PRINT TAE(30,2) } "HOUNDS" 
PRINT TAE(30,4)3"YOUR MOVE" 
FOR A#=1 TO StFOR & TO et 
IF $)/2=INTCCA+B)/2) THEN ACA,B) =? 
i EXT A 
1 TO Q STEF 2:A(8,A)=-1¢NEXT 


=1!GOSUE 950 


FOR Yst TO Q STEP 2 
Z=101GOQSUB 950 

NEXT ¥ 

X=1 

Yat 


4+1:GOTO 540 
C=(RND(Z)-1)*2-2 
El 
E=X+1itF=Y+CiGOSUE 760 


IF G=1 THEN 660 
IF (ACX,F+C)=-1 OR F+C OR F+C>8) 
AND (ACE+1,F+C)=-1 OR F+Ce1 OR F+Cr 8) 
AND X<7 THEN 1060 
IF A(E,F)=0 THEN 790 
E=X+1tF=Y+DiGOSUB 760%IF G=1 THEN 690 
IF (ACX,F+D)=-1 OR F+D<1 OR F+D>8) 
AND (ACE+1,F+D)=~-1 OR F+D<1 OR F+D>8) 
THEN GOTO 1040 
IF ACE,F)=0 THEN 790 
E=X-1{F=Y+CiGOSUE 74603IF G=1 THEN 710 
IF AC(E,F)=0 THEN 790 
E=X-1tF=Y+DiGOSUB 760¢IF G=1 THEN 730 
IF AC(E,F)=0 THEN 790 
IF ACX+1,Y+D)=0 AND X<8 AND Y+D>0 
AND Y+D<9 THEN E=X+1 +D3GOTO 790 
IF ACX+1,Y+C)=0 AND X AND Y+C>0 
AND Y+C<9 THEN E=X+1iF=Y+DiGOTO 790 
CLS3PRINT TAB(10,8)¢"YOU WINI!"3 
GOTO 1000 
G=1 
IF E>0 AND E*9 AND F=0 AND F<9 THEN G=0 
RETURN 
ACE,F)=13A(X,Y)=02Z=193GOSUE 950 
X=EtY=FiZ=1:GOSUE 950 
IF AC8,1)=1 OR A(8,3)=1 OR ACB,S)=1 
OR AC8,7)=1 THEN 1080 
PRINT TAE(28,8)3% PUT X$ 
IF X$="STOF" THEN CLS$END 
IF LEN(X$)<>4 THEN 820 
A=VAL (LEFT$(X$,1) P-VAL (MIDS (X$,2,1)) 
CHVAL (MID$(X$,3,1))2 
D=9--VAL (RIGHT$(X#,1)) 
IF A<1 OR A>8 OR B<1 OR BB OR C 
€>8 OR D<1 OR D>8 THEN 
SOUND 2,-15,150:GOTO 820 
OR A(D,C)**0 OR 
OR ABSCA-C)<>1 THEN 

SOUND 2,~-15,150:GOTO 820 
ACB, A=0TACD,C)=-1tX=BtYsAtZ=19% 
GOSUE 950 

=CtZ=10:GOSUE 950:GOTO 550 

Mxx WIN MESSAGE 

FOR R=1 TO 6003NEXTSCLS{PRINT"T 
WIN"?GOTO 1000 
DATA 230,3Z2,229,232,233,234,228,233, 
231,226,32,235,233,233,236,236,237,32 
DATA 32,32,32,32,32,32,32,32,32 
X1=(Y=1)K3+13Y1=(X~-1) «341 
PRINT TABCX1,Y1)$CHRS(B(Z) 7} 
CHRS$ (E(Z+1)) 3 CHRS(B(Z+2)) 
PRINT TAE(X1,Y1+1) }CHRS(B(Z4+3)) 3 
CHRS$(E(Z+4) ) }CHRS(E(Z4+5)) 
PRINT TAE(X1,Y1+2) }CHRS(E(Z+6) )$ 
CHR$(B(Z+7)) $CHRS(E(Z+8)) 
RETURN 
PRINT"FRESS ANY KEY TO RESTART" 
AS=GET# 
CLEAR 
GoTo 10 
IF ACE+1,F+C)=-1 AND X£7 THEN 620 
GOTO 680 
IF ACE+1,F+D)=-1 THEN 590 
GOTO 4650 
FOR T=1 TO 600:NEXT 
CLS:FRINT TAE(4,100$"I WIN '!!"3GOTO 1000 
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Converted from a program by Andrew Thomas and Gareth Callister 


JHE WHITE 


BARROWS 


Match your magic 
against the evil 
sorcerer in this logical 
game of skill. 





——— 


s in all good adventure 
games, your task is to 
recover the magic chalice 


which has been stolen by an 
evil sorcerer hiding in the 
labyrinth of the White Barrows. 
This labyrinth is arranged in a 
stable pattern (see Fig. 1) and 
each of the chambers has an 
identifying number. The 
sorcerer is powerless to escape 
from the labyrinth while 
carrying the chalice, but if you 
trap him he will drop it and 
promptly disappear. To aid you 
in your task you are equipped 
with a Magic Staff and a limited 
supply of magic. 


Ghouls Gallery 


Lurking in the labyrinth are 
dragons, serpents, dwarfs, 
goblins and magic spots. These 
remain in their own chamber in 


a SS 
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the labyrinth, they cannot move 
around like the sorcerer. The 
program will issue warnings as 
to the content of the chamber 
you are about to enter, but 
these are not in any particular 
sequence. You may receive a 
warning about a serpent while 
you are in, for example, 
chamber two but you will not 
know — unless you can 
remember — in which of the 
four possible move positions it 
is. You can use the VIEW 
command to check the chamber 
but this will use some of your 
limited stocks of magic. 

If you are unfortunate 
enough to run into a dragon, 
serpent or dwarf you are faced 
with one of three choices: 

You can stun it, but you must 
leave the chamber immediately 
or it will recover and attack 
you. 





You can transport it, but if you 
are really unlucky it may 
reappear in the same chamber. 
You can destroy it, in which 
case the creature is removed 
from the game. 

All the above options use up 
some of your magic; the actual 
amount depends on the creature 
type and which of the options 
you choose (these are listed in 
ascending order of magic 
required). If you do not use 
sufficient magic the creature 
may be stunned (in which case 
you get a second chance) or it 
may just get angry and attack 
you. 

The goblins are actually on 
your side — but for a price. 
They will tell you where the 
sorcerer is hiding provided you 
supply them with gold coins 
which you can make with your 
magical ability. But don't be too 
guick to part with your coins, 
the system gives the same 
warning for a goblin 
approaching as for the friendly 
gnome who doesn't need 
bribing. 

There is one further obstacle 
hidden in the labyrinth — a 
magic spot. This, if trodden on, 
will instantly transport you to 
another location within the 
barrow. Murphy's law 
determines that no matter what 
peril you were in before you 
were transported, the situation 
you find yourself in afterwards 
will be ten times worse! 


A Sorcerer Full Of 
Secrets 

The evil sorcerer does have a 
degree of intelligence. If you 
walk into the chamber in which 
he is hiding, he will run off. 
The distance he will run can be 
up to three chambers and, if he 
can find it, he will always tread 
on the magic spot to further 
contuse the issue. To retrieve 
the chalice you must trap him. 


37 


> 


le case 


Left: You have just stumbled upon the 


Platinum Serpent and it’s a simp 
of deciding just what to do with it. 








NOW oO 
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LASS & OZ 


EAR A SERPENT HISSTHG 


THE WHITE BARROWS 

















F MAGIC 746_ 


CHOICE 71 
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EAR A SERPENT HISSING 


Chalice. 


can now wander on through the 


Right: Having stunned the brute, you 
myriad passages in your search for the 








VARIABLES 


A 


General flag. 


Stun flag. 


fA 


Temporary store. 








NKMSCHNOUVUZZE ATA NQW DE 


The string holding the sequence of chambers. 
Random flag for attack. 
Chamber where the sorcerer and chalice are hidden. 


General loop count. 
General loop count. 


Chamber where Magic Wall has been built. 
Amount of magic left in Magic Staff. 
Number of chambers. 

General numeric reply. 

General string reply. 

Strength of an opposing force. 


Amount of magic used. 
Flag to indicate win. 
Contents of chamber. 
Player's chamber number. 
Chamber number for object. 


Contents of labyrinth. 
All possible connections from a chamber. 


PROGRAM STRUCTURE 


Set Up 


Call 
Subroutines 


Lines 90-190 Positions 


Lines 200-250 | Action 


Lines 260-510 |End Game 





Encounters 


Move and 
Fight 











- 1910] Instructions 
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Sets up arrays used in game. Prints 
title. 

Invokes subroutines to print 
instructions, to load the map of the 
barrows and to zero the labyrinth 
array. 

Calls subroutines to load the 
various characters into initial 
positions, also to give player initial 
position and to display this position. 
Player is given choice of three 
actions. Appropriate subroutine 
called to implement choice. 

Logic for end of game and 
messages. Choice of replay. 
Arithmetic for Magic Staff. 
Messages and logic if character 
encountered. 

Controls moves made by the player 
and handles logic when a fight 
occurs. 

Creates Magic Wall when required 
and if circumstances permit. 
Routine to ‘view chamber’. 

Routine to display position and give 
information about adjoining 
chambers. 

Loads the labyrinth array with a 
random set of ‘troubles’. 

Zeroes a number of arrays. 

Sets up ‘map’ of barrow chambers. 
Prints initial instructions. 





This is not easy (the game 
wouldn't be much fun if it was) 
but there are three aids for your 
task: the sorcerer will not move 
to a chamber you have just left; 
he will not enter a chamber 
containing a goblin; and he will 
not enter a chamber in which 
you have created the Magic 
Wall. 

This Magic Wall can be 
created at any point in the 
labyrinth but only one wall can 
be created at any one time. If 
you build a second wall, the 
first will fall down! Also, you 
cannot build a wall ina 
chamber which is already 
occupied — if you try, it will 
fall down staight away. 

The final option, available 
when all else has failed (you've 
run out of magic or been 
killed), is the possibility of re- 
incarnation. 


TECHNICAL DETAILS 
This is a conversion from ATOM 
BASIC. The only real difficulty 
encountered in the conversion 
was changing the ATOM's odd 
string handling into the more 
regular string functions BBC 
BASIC uses. The structure of 
the labyrinth is stored in A$ and 
is constructed from blocks of 
four characters containing the 
connections from the chamber 
whose number corresponds to 
the block; block 0 is a dummy. 
The chamber number is stored 
as an ASCII character whose 
code is the number plus 48. For 
example, chamber five connects 
to 1;<= which translates to 
chamber four connects to 

one, 11,12 and 13. 


HOW TO PLAY 


The program includes very full 
instructions but you need to 
keep the copy of the map with 
you when you play. You also 
need either a very good 
memory or pen and paper so 
that you can keep a note ot the 
position of the various ‘nasties’ 
you meet on your travels 
through the barrows — only the 
sorcerer actually moves 
spontaneously during the game, 
but, of course, you may alter 
the position of a dragon, 
serpent or dwarf by 
‘transporting’ it. > 








THE WHITE BARROWS 


10 REM**CONSULT TEXT FOR MAP 

20 B=0 

30 N=42:@1=a00000303 

40 DIM AACN), BE(3) 

SO CLStPRINT$PRINT "THE WHITE BARROWS" 
60 GOSUE 1830 

7@ GOSUE 1780 

80 GOSUB 1740 

90 FOR X=1 TO 9 
100 GOSUE 1710 
110 NEXT X 
120 FOR I=1 TO 3 
130 X=10!GOSUB 1710 
140 X=11:GOSUB 1710 

150 NEXT I 
160 X=O0:GOSUB 1710tY=RK 
170 GOSUE 1710: 












180 

190 W=Ot :GOSUB 1470 

200 INFUT "CREATE WALL, MOVE OR VIEW ",Q$ 
210 Q¢=LEFT#(Q$,1) 

220 tt THEN GOSUE: 1310:GOTO 240 
230 THEN GOSUB 1160:GOTO 240 
240 THEN GOSUB 680:GOTO 260 


250 GOTO 200 

260 IF AACY)=0 OR k 
AACY)=11 Th GOTO 300 

270 PRINT "THE {Z=YiGOSUB 540 

280 PRINT "SUDDENLY ATTACKED !"$PRINT 

290 GOTO 420 

300 IF M>O THEN GOTO 340 

310 FRINT "YOUR STAFF IS NOW USELESS AND" 

320 PRINT “THE EVIL FORCE ATTACKS !" 

330 GOTO 420 

340 IF W=0 THEN GOTO 190 

350 PRINT "CONGRATULATIONS YOU HAVE" 

360 FRINT "DEFEATED THE EVIL SORCERER !" 

370 FRINT "WOULD YOU LIKE TO TRAP ANOTHER" 

380 INFUT "SORCERER ",Q¢% 

390 Q¢=LEFTS(Q%,1) 

400 IF Q¢=" THEN GOTO SO 

410 GOTO S10 

420 FRINT "OH DEAR, YOU APPEAR TO BE DEAD" 

430 PRINT "WOULD YOU LIKE TO BE" 

440 INPUT "REINCARNATED ",Q$ 

450 Q#=LEFTS(Q$,1) 

460 IF Q¢="N" THEN GOTO 

470 INPUT "THE ME SOR! 

480 Q¢=LEFT#(Q#,1) 

490 IF Q$="Y" THEN GOTO 180 

GOTO So 





OR AACY)=10 OR 














A$ 


530 








FRINT “YOU HAVE USED "K" UNITS." 
PRINT "YOU HAVE "M" UNITS 

Ri INING. "PRINT 

RETURN 

ON AACZ) GOTO 570,580,590,4600,4610, 
6Z0,630,640, 1660,670 

PRINT "RED DRAGON" 
"GREEN DRAGON 
"YELLOW DRAGO 
“PLATINUM SERF 
"GOLD SERFENT"S 
"SILVER SERPENT" $S=1 
"DWARF WITH A SABRE" 
PRINT "DWARF WITH A SWORD 
PRINT “DWARF WITH A KNIF = 
PRINT "FRIENDLY GNOME"? RETURN 
PRINT "MAGIC SFOT"’ {RETURN 
INPUT "WHICH CHAMBER TO MOVE TO "F 
F=0$PRINT 

FOR IT=0 TO 3 

IF @B(T)=F THEN F=1 



















tRETURN 
Z0tRETURN 
28¢RETURN 
TURN 

ETURN 
24?tRETURN 




















NEXT I 

IF F=0 OR F=0 THEN GOSUB 1470:GOTO 680 
IF C<>F THEN GOTO 840 

W=1iF=0 





FOR I=0 TO 3 

T=ASC (MIDS (A$, CK4-4414+1,1))-48 
IF T=0 OR T#Y OR AACT)=10 OR T= 
THEN GOTO 810 

IF W=1 OR RND(1)<.5 THEN C=T 
W=O03ITF AACT)=11 THEN F=1 

NEXT I 

IF W=1 THEN RETURN 

IF F=0 THEN FRINT "THE SORCERER 
HAS RUN OFF !"$GOTO 860 
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840 
850 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


290 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


1190 
1200 








PRINT "THE SORCERER TROD ON THE MAGIC" 
PRINT "SPOT !"$X=03GOSUB 1710:C=R3 
GOTO 740 

Y=P3IF AACF)=0 THEN RETURN 

IF AA(P)<>11 THEN 910 

PRINT "POWNW! YOU HAVE JUST TRODDEN ON" 
NT "THE MAGIC SFOT!"3FRINT 

'GOSUB 17103Y=RiRETURN 

IF AACF)<>10 THEN GOTO 990 

ND(20)4+19 

NT "THE GOBLIN WILL TELL YOU WHERE” 
PRINT "THE SORCER IS FOR "3R}" GOLD" 
INFUT "COINS. AGREED ",Q¢ 
Q$=LEFT$(Q$,1) 

IF Y" THEN RETURN 

THE SORCERER IS IN CHAMBER 
+"SM=M-RIGOTO 1140 

! S60tPRINT "IS ABOUT 






















ATTACK !" 

NT "YOU HAVE THREE CHOICES: "3PRINT 
Vd STUNG Tat! 

2 ~ TRANSPORT IT." 

PRINT "3 - DESTROY IT."SFRINT 

INFUT "YOUR CHOICE ",F 

IF Pei OR THEN GOTO 1040 

INFUT "AMOUNT OF MAGIC ",R 

IF “0 OR RoM THEN GOTO 1060 
CLS{GOSUE S60tPRINT "IS "3:B=0 

AND R>S+(RND(2«S/3)-S/3-1) 
RINT "STUNNED !"3K=1 

2 OR ReSKZ+RND(2«S)-S THEN 

20 

SANSPORTED" $X=AACY) ? 

O3GOSUB 1710 

AND R>S*4+RND(2*S)-S THEN 
PRINT "DESTROYED !"’iAACY)=0 

IF K=0 AND AACY)<>0 THEN PRINT 
"DAZED 3B=RND(8)-1 

GOSUB S20;IF B>Z AND M>0 THEN GOTO 1000 
RETURN 

PRINT "WHICH CHAMBER DO YOU WISH TO” 
INFUT "CREATE THE MAGIC WALL IN ",L 






























PRINT 
IF Li OR L>N THEN GOSUB 1470:3GOTO 1160 
IF AACL 0 THEN GOTO 1240 
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1600 
1610 


1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 


1790 
1800 


1810 
1820 
1830 


1840 
1850 
1860 
1870 
1880 
1890 


1900 


1910 


PRINT "THE MAGIC WALL NOW EXISTS IN" 
PRINT “CHAMBER "$L 

GOTO 1270 

PRINT "ZAAPPPP ! CHAMBER "$L$" ALREADY"? 
L=0 

PRINT "CONTAINS MAGIC, THE WALL HAS" 
PRINT "FAILED !" 

PRINT 

R=RND(20)-1+20 

GOSUE 520 

RETURN 

PRINT "WHICH CHAMBER DO YOU WISH TO" 
INFUT "VIEW ",F 

F=0 

FOR I=0 TO 3 

IF P=BB(I) THEN F=1 

NEXT I 

IF F=0 OR F=0 THEN PRINT "CHAMBER 
MUST BE CONNECTED TO YOURS":GOTO 1310 
PRINT 

IF F=C THEN PRINT "YOU HAVE FOUND 
THE SORCERER !" 

IF AACP)=0 THEN FRINT "THE 

CHAMBER IS EMPTY GOTO 1440 

PRINT "THERE IS A "3 

Z=PiGOSUB 560 

PRINT "IN CHAMBER "3P3","3 
R=RND(20)4+9 

GOSUB 520 












RETURN 
F=0tQ$="1234" 
FOR To 3 
BB(T)=ASC(MID$ (A$, YX4—4414+1,1))~48 


F=F+AA(BE(T))-(100KABS (BE(I) = 
NEXT I 

IF F=0 THEN GOTO 1640 

FRINT "WARNING ~" 

IF F<0 THEN FRINT “THE CHALICE IS NEAR !" 
FOR I=0 To 3 

R=RND(4)3IF MID$(Q$,R,1)= 
GOTO 1560 
Q$=LEFT$(Q$,R-1)+" "+RIGHTS(Q$,4—R)¢ 
T=AA(BE(R-1)) 

IF T>0 AND T<4 THEN PRINT "I CAN 

HEAR A DRAGON |!" 

IF T>3 AND T<7 THEN PRINT "I CAN 

HEAR A SERPENT HISSING !" 

IF T>6 AND T<11 THEN PRINT "I CAN 

HEAR MONEY RATTLING !" 

IF T=11 THEN PRINT "I CAN FEEL 

MAGIC VERY CLOSE !" 

NEXT I 

PRINT 

FRINT "TUNNELS LEAD TO" 

FOR I=0 TO 3 

IF BE(I)>0 THEN PRINT BB(I)3","3 

NEXT I 

PRINT CHR$(8)3" " 

PRINT "YOU ARE CURRENTLY IN CHAMBER "SY 
RETURN 

R=RND(42)3IF AA(R)>0 GOTO 1710 

AACRD=X 

RETURN 

FOR I=0 TO 42 

AACTI)=0 


») 








" THEN 








2>?@ZABC2DEF 3GHI3JKL3MNO4FQR4STU" 
AS=AS+"4UWX5S@X05Y0052A06@C06Y006AD0 
7CFO7YOO7DGO8FIOaYO0" 
AS=AS+"BCJOPIKOPILOPKMOILO03Z003 
MPO3OR0;Z00;FS0<RU oo" 





AS=A$S+"<SV0=UX0=Z0 VO?BEHNQTH" 
RETURN 

PRINT? PRINT"YOUR MISSION IS TO 
TRAP THE" 


PRINT "EVIL SORCERER AND RETURN THE" 
PRINT "MAGIC CHALICE." 

PRINT "YOU HAVE BEEN GIVEN A MAGIC" 
PRINT "STAFF WITH 500 UNITS OF MAGIC." 
PRINT "USE IT TO OVERCOME THE" 

PRINT "HAZARDS HIDDEN IN THE 

WHITE" 

INFUT “BARROWS. 
BEGIN." ,Q$iCLS 
RETURN 


HIT RETURN TO 
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Converted from a program by R L Tucker 





Practice your ski-ing 
techniques on this 
fast-moving slalom 
run. (Another case of 
schussing on the 
piste?) 





his program simulates a 

slalom ski run, complete 

with gates you have to 
negotiate. The object of the 
game is simple, you must reach 
the bottom of the course in the 
shortest possible time without 
missing any gates and without 
going off the edge of the 
course. 

There are two kinds of 
course available: a standard 
pre-programmed run of quite 
reasonable difficulty and a 
randomly generated course, 
which is usually easier. In both 
cases you can preview your 
course. 

As you gain experience, you 
may wish to ski faster. The 
program permits this very easily 
— the game may be speeded up 
by inputting a number not 
greater than two digits larger 
than the number displayed in 
the top-left hand corner (it starts 
each game at zero). 


TECHNICAL DETAILS 


Ski-Run was converted from a 
Sharp MZ80 program. The most 
interesting point of the 
conversion is the section which 
creates the ‘little man’ graphics 
character. This is done in the 
usual way with a VDU 23 
command. It is very tempting to 
try to create an over complex 
graphics character. This should 
be avoided however, as the 
minimum width for a clear 
feature in a graphics character 
is two dots. Still, if you want to 
experiment, try adding some 
skis to the figure! 


HOW TO PLAY 


The computer displays 

instructions and asks you to 

choose a random course or the 

set course. You are given the 

option of viewing the course 

; before you start. When the 
Photograph courtesy of Kieran Wade ame starts it is actually the 

——— 
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Lines 10-30 






Lines 40-170 
Lines 180-240 







Lines 250-280 





Lines 290-320 





Lines 330-540 





Lines 550-690 





Lines 700-770 





Lines 780-870 





Lines 880-950. 





PROGRAM STRUCTURE 


Set Up 





Text 
Select 


Course 

Set Course 
Preview 
Print/Move 


Course 
Move Man 


Gate 


Random 
Course 


End Game 


Lines 960-1050 | Restart 
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Selects MODE 4, defines character 
of ‘little man’, sets background 
colour to white and foreground 
colour to blue. 

Displays text at beginning of game. 
Gives player the option of a 
random rather than the pre-set 
course. 

Sets up the ‘gates’ on the chosen 
course. 

Gives player the option of viewing 
the course before attempting it. 
Prints the course and moves it up 
the screen. 


Displays start message and figure of 
the man, controls change of 
direction when any key pressed and 
checks to see whether man is off the 
course. 


Checks to see whether man passes 
to correct side of gate — if not, 
adds 5 to penalty score and sound 
a ‘bleep’. 

Works out and displays a random 
course. 

If man goes off the course, message 
printed to conf If cour 
completed, pri e taken, 
penalty time and the sum of the 
two. 

Gives option of another game with 
the same or a different course. 
































































































































SKI-RUN 





ES RS Ta | 


course that moves up the 
screen. All the skier can do is 
to change direction — which is 
done by hitting any key. If you 
wish to speed up the game you 
can increase the number 
displayed at the top of the 
screen by no more than two at 
any time. The counter starts at O 
— so you can alter it to 2 if you 
wish, and then to 3 or 4and so 


on. It will always revert to O at 
the beginning of every game. 

You have to go around the 
gates on the course on the side 
indicated by the arrow. If you 
go round them the wrong way a 
‘bleep’ will sound and you'll be 
awarded five penalty points; if 
you crash into the barrier you 
have to start again. 

When you complete the 


course successfully the 
computer displays your ‘time’ 
(the actual time taken), your 
‘penalty time’ (the number of 
penalty points you obtained) 
and your ‘total time” (the sum of 
the two). 

Each time you restart the 
game you can choose to try the 
same course or 2 new one. 
Happy skiing! 





MODE 4 

VDU 23,224,83C,&3C,&18,&FF,&818,8&3C, 

866,803 

YVDU 19405740,0,03YDU 19,144,0,0,0 

CLSSPRINTSFRINT TAE(CIS)3 "SKI RUNA" 

PRINT TAECL1) 3" + +" SPRINT 
[NT SPRINT 

PRINT "Ski down the slalom course 

passing to" 

FRINT "the side of the gates indicated," 

PRINT 

NT "Change speed by pressing a mumber" 

PRINT "differing by no more than 

two from the" 

PRINT "number displayed im the 

top left corner," 

PRINT 

PRINT "Change direction by 

pressing any other" 

PRINT "kegs" 

REMXStart of run 








M X(30),¥(30) 
NTIPRINT'Do you want a random 
se?" t 


NT "Yes"} {GOSUE 


kKLay out set course 

NT "No" 
FOR IT#1 TO 30¢READ X(I),YC(I)$NEXTS 
RESTORE 
DATA 20,1,30,8,1759,27,7, 215527, 
5 2195,27,5,21,5,31,8 
DATA 20,8,26,5,16,8,21,5,11,8,30, 
15,11,15,21,8,11,8,23,8 
DATA 17,5,23,5,17 23,5,17,5,30, 
1051749427 48,7517,20,9 
PRINT? [NT"Do you want to see 
fore" SPRINT" you start?" 














THEN H#1tGOTO 350 
" THEN GOTO 300 
nm proper starts here 
RINTIPRINT'Now you start 
your r good luok!" tH=0t 
FOR I=1 TO 2000NEXT 1 





26iC=2% 





FOR K=1 TO 25%FRINT "$"3TAE(3B)$ 
NEXT K 

REM*Main control loop 

FO 
ate 1 THEN GOTO 480 
FOR T=1 TO Y(G) 

IF E=1 THEN GOTO 440 
PRINT TAB(O,31)3"#"$TAE 
GOSUB SS 

NEXT 

Gt tIF G/2=INT(G/2) THEN GS 
PRINT TAB(O,31)$"$"$ TABCX(G),31)3 
G$3TAB(38,31)3"$" 

GOSUE S50 

NEXT G 








38,31) ¢"$"s 





THEN GOTO 890 

THEN FOR I=1 TO 1500tMExT 
TiGOTO 340 
PRINT TAE(0,31)}"$$"3 TABCS7)¢"S8" 
GOSUE 550 
IF E=1 THEN GOTO 890 
GOTO S10 
NEN+13FOR D=1 TO 100-10xMINEXT OD: 
IF H=1 THEN RETURN 
"RINT TAB(X,Y¥~L) 3" "3 





YC(NL)+¥ THEN N1=N14+2¥=Ee 
OSUE 710 
Nil=31 GOTO 910 
NKEY$ (0) 
Mee AND (X}a 
RETURN 
*FX 15,0 
IF M$="" GOTO 680 
VAL(M$)#0 THEN C=-C3GOTO 688 
ABS (VAL(M%)-M)>2 GOTO 688 
M=VAL (M$) 
PRINT TAE(S,1)3" "$TABCS,2) 5m 
RETURN 
REMXPassing gate 
IF N1/2=INT(N1/2) THEN GOTO 758 
IF X< d 
SOUND 2,~15,150,5 
PRINT '"$" 
RETURN 
IF x Ni-1) THEN PP=PP+52 SOUND 
2,-15,150,5 
PRINT "$" 
RETURN 
REMXWork out random course 





37 OR X<=1) THEM E=1: 











[NT CRND (1) KB) +42 Y (TL) =¥ 
IF I/2"INT(I/2) THEN GOTO 846 
X=X1-2xY+43G0TO 850 
L+2xY 4 
THEN X=X~13GOTO 85@ 
+13GOTO 860 
NEXT {RETURN 
4 ages etc. 
REMKOfF course 
VDU S0tFRINT "You’ve gone off the 
course 1!" GOTO 960 
PRINT TAB(O,25)¢"You've completed 
the course" 
TT TIME 
RINT "Time" ;TAR(16) 377/108 
PRINT "Penalty time";TABC16)7PP 
FRINT "Total time"; TABC16) PP4TT/100 
PRINT "Another game?" 











THEN RUN 
THEN GOTO 350 





GOTO 1020 
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Based on an idea by Henry Budgett and Dave Sinfield. 





Your Planet is under 
attack and you are in 
sole control. 


I is the 25th century. Earth 





has been abandoned after the 

onset of a world-wide ice age 
which began in the northern 
hemisphere in the 2lst Century 
and gradually engulfed the 
entire planet. The peoples of 
earth dispersed over far-flung 
galaxies but their emnities 
survived and each colony is 
constantly under threat of attack 
and in a state of preparedness, 
both for defence and 
aggression. 

On this occasion, however, 
the enemy has duped your early 
warning system. Your fleet of 
battle craft is out on its own 
war-mongering mission and you 
remain as the only person on 
the planet able to operate a 
space ship and launch the 
deadly laser bolts — the only 
weapons which have any effect 
on the enemy craft. 


The Aliens Are Coming 


To make matters worse all your 
sophisticated warships are away 
from the base — there is only a 
single tiny training ship left. It 
can only fire one laser bolt at a 
time and can only hover above 
the oncoming craft, moving to 
the left and right but unable to 
advance or retreat. 

The enemy's twenty battle 
cruisers glide silently towards 
you. You know that they will not 
attempt to fire at your fast- 
moving craft as it is so small 
their crude weapons could not 
locate it accurately but, if any 
more than five of them land, 
your planet’s ground-based 
forces will be overwhelmed. So 
you are faced with the 
challenge of destroying three- 
quarters of the entire enemy 
fleet single-handed with these 
minimal resources — or else 
your colony will suffer 
devastating losses. 





: Photograph courtesy of 20th Century Fox 
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: 





mecocet a 
PROGRAM STRUCTURE 





Lines 10-40 








Lines 50-80 Run Game 
Lines 90-240 DEFPROCINIT 
Lines 250-400 | DEFPROCTEXT 
Lines 410-520 | DEFPROCPLAY 


Lines 530-610 | DEFPROCSHIP 


Lines 620-690 | DEFPROCDIR 


Lines 700-770 | DEFPROCALIEN 


Lines 780-840 | DEFPROC- 
SCROLL 


Lines 850-930 | DEFPROCBOLT 


Lines 940-1050 | DEFPROCBOOM 


Lines 1060-1140) DEFPROCNEAR 


Lines 1150-1180] DEFPROCDELAY 
Lines 1190-1250] DEFPROCZAP 


Lines 1260-1380] DEFPROCFIN 


Lines 1390-1420] Screen Address 


Selects MODE 4, calls 
routines to initialise 
variables and to print title 
and instructions. Selects 
MODE 4 a second time and 
resets scrolling mode. 
Calls routines to play game 
and finish it. ‘ 
Defines graphics characters 
and initialises variables. 
Displays text at the start of 
play. 

Initialises variables for 
play, calls routine to 
display the ship, calls 
routine to change direction 
of the ship, to fire bolts, to 
display the aliens and to 
move them up the screen. 
Moves the ship, calls 
routine to crash the ship 
when appropriate and 
displays the ship. 

Changes direction of ship 
when 'R’ is pressed. 

Calls scrolling routine, 
counts aliens and displays 
them. 

Moves whole screen in 
order to produce scrolling 
effect. 

Prints and moves the bolt 
and emits sound as the bolt 
travels. Logic to detect a 
dead hit and a near miss. 
Destroys alien and emits 
sound of explosion. 
Signals a near miss by 
appropriate sound and a 
flash. 

Delay loop. 

Destroys ship, with sound 
effect, if it collides with an 
alien. 

Prints ‘win’ or ‘lose’ 
message at the end of your 
turn and offers the choice 
of another game. 

Converts x,y co-ordinates 
to memory mapped screen 
address. 





TECHNICAL DETAILS 


Alien Attack uses character 
graphics in much the same way 
that Fox and Hounds, 
Breakthough and Squish do. 
The procedure INIT sets up the 
characters required, including 
CHR§(230) the small space 
ship. The alien ships are moved 
up the screen by scrolling the 
entire display. The only 
complication is that the BBC 
Micro performs a scroll by 
changing the memory address 
of each line. This only causes a 
problem because of the need to 
PEEK screen locations to find 
out what is already present. The 
usual FNS function has to be 
modified to include a count of 
the number of times the screen 
has been scrolled — the 
variable SC. 

Notice also the use of the 
noise channel zero in the 
procedures which destroy the 
aliens and the defender. 


HOW TO PLAY 


You have only one ship and it 
can only move to the left and 
right in a fixed band at the top 
of the screen. You can change 
the direction the ship is 
travelling in by pressing ‘R’. To 
fire your laser cannon, hit the 
space bar; your cannon will not 
re-load until the previous bolt 
has been finished with — either 
by hitting an alien or by going 
otf the bottom of the screen. 

To destroy an alien battle 
cruiser you have to hit it dead 
centre. If you hit it on either 
flank a ‘near miss’ will register 
— but it will not help you in 
your mission to allow no more 
than five enemy craft to pass by 
you and land on your planet. 
Be careful though, if you collide 
into one of the enemy you will 
be instantly destroyed. 





eee —— 
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You alone must defend your planet! 


You can reverse the direction of your 
ship by pressing R and fire your laser 
cannon by pressing the space bar. 


To destroy an alien you must hit it 
dead centre. | ‘ 

They cannot fire back - but if you run 
into one your ship will be destroyed. 


There are 2@ ships in the alien Ereee 


and you must destroy at least 15 to 
save your planet. 


PRESS ANY K 


Aull 
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ALIEN ATTACK 


340 


370 


380 
390 


400 
410 
420 
430 
440 
450 
460 
470 
480 


490 


500 
S10 
520 


530 


FPROCFIN 
END 
DEFFROCINIT 
VDUZ3,2 RPE &FF RFF, &F Fy aF 
VDUZ3,2 fy &D &FF,&7E, 830,81 
VDUZ3,226,801,803,807,80F ,81F ,83F,8 
VDU2Z3 227,880,800, 8E0,8F0,8F8,8FC, &FE r 
RFO,&FO,8F0,8F0,8F0,8F0 
2 SOF, 80F,80F,80F,80F, 80F 
VDUZ3,230,819,818,818,818,83C,87D, 830,819 
FeRCC 855, &CC,R55,8CC, & 


ENDFROC 
FPR 
PRINT TAB(8,3)$"A Lo oT EON 
aT TAC kK" 
PRINT TABCO,9)3"You alone must 
defend your planet!" 
PRINTIPRINT' You can reverse the 
direction of your" 
PRINT' ship by pressing R and fire 
your lager" 
PRINT" carrion by pressing the space bar, 
PRINTSPRINT' To destroy an aliery 
you must hit it" 
PRINT dead ceartre >" 
PRINT They cannot fire back, tet 
af you run" 
PRINT" into one your ship will be 
destroyed." 
PRINT $F NT"There are 20 ships in 
the alien fleet" 
PRINT and you must destroy at least 18 
to" 
PRINT save your planet." 
PRINT TABCS, 30. 2"FPRESS ANY KEY TO 
BEGIN’ {A$#GET4 
ENDFROG 
DEFPROCELAY 
X#LOSY¥#3tAed SFP a0 
XAB2ZOPYAR29 
FROCSHIF 
TF Ee1 OR EF>26 THEN ENDFROC 
PROCD IF 
1 AND FF#0 THEN XE 
FRed THEN PROCBOLT EL 
wv 


Ge 
IF RND(1): HEN PROCSCROLL 
GOTO 440 


THEN X# 
THEN 
3(X,Ys0) 
FF OR M#&01 OR M#&80 OR 
0 OR M=&80F THEN E=1SFPROCZAPSENDFRGC 
#1 THEN PRINT TABCX-1,Y) 3" "3 
CX, YOICHR# (225) 3ELGE PRINT TARCX4+1,Y)3 
STAECX,Y) SCHR (225) 3 
PRINT TAECO,0)} 
ENDFROC 


THEN ENDFPROC 
THEN A’ 


690 
700 
710 
720 
730 
740 
750 


760 


770 
780 
790 
B00 
810 
820 
830 
840 
850 
840 
870 
880 
B90 
900 
910 


920 
930" 
940 
950 
9640 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
Lito 
L120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
L220 
1230 


1260 
1270 
1280 
1290 


1300 


NDFROC 


1?S=07ENDEROC 


PRINT TAECXA,YA) SCHRS( 228) 3 


CHR (224) SCHR (227) } 


PRINT TABCXA,YAtL) SCHR#(Z28) $3" 


CHRE C229) $ 
ENDFROC 


EF +2 


THEN FRINT TABCXE, YEO 3" 


(0,31) SPRINT 


ROCBOLT 
YE 
PRINT TAE(XE,YB=1) 3" "3 


TF YB=29 THEN FF=0SENDEROC 


SOUND 2,~15,YB4+80,10 


PRINT TAECXE, YE) J CHRG(230)$TAR(CO,0)3 


IF ?FNS (XE, YEt1, Oe RFE 
PROCGOOM 
TP OPN (XE, VEAL, 7) S&P F 


EPP ROCEOOM 
SOUND 15,14,20 


TO 
TAES (XE dy ¥| 
TABS (XE 1 » YE 


SOUND 0,—15,12,15 
FOR I#1 TO 10 


THEN Deo lt 


THEN FROCNEAK 


NING $ C3) CHRG C231) ) 
SINGS (3, CHR&C234)) 


INT TAB (XE, YE) 3CHR$ (231) 3 


NT TABCXB, YE) 3" "3 
NEXT I 
PRINT TAB CXE, YE) } 
ENDPROC 
DEFFPROCDELAY 
FOR Di=l TO 
NEXT D1 


SOUND 
FOR Ke 


ENDFROG 
DEFPROCFIN 
PRINT 


IF &=1 THEN NT TABCS 


ship is finished!" 


s10)$"Your 


"You have destroyed "3D3" of 


emy' SINT 


S THEN PRINTSFRINT "This is 
hot enough to save the planet!" 
TF D815 THEN PRINT "You have 


saved your planet" 
“RINT 


T “Another Game Y/N",A% 


AK2LEF TH CAS, 1) 


* FNS(XS,YS,NS) 
S+SC 


YT#YT-INT (ABS (YT) /32) «32 


=HIMEM+ CY TX40+XS ) XB4+NG 
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Converted from a program by Simon Bunce 


i 
CONQUERING Plan for a Himalayan 
expedition with the 
EVEREST 2:0" 
Micro. 


his is a computer 
simulation of an expedition 
trying to climb Mount 


Everest. The 

program is often alarmingly 
accurate with climbers in high 
camps, pinned down by the 
weather and unable to receive 
supplies from below. 

Basically, the idea isa 
simple one: ropes are laid up 
the mountain, successively 
igher camps are occupied and 
stocked and finally, an attempt 
on the summit is made. The skill 
ies in the way supplies are 
moved around and how the 
Sherpas and porters are used to 
he greatest effect. 

The expedition consists of 
18 climbers, 35 Sherpas (who 
will carry loads anywhere on 
he mountain) and 25 porters 
(who cannot move above Camp 
2). There are a total of seven 
camps on the climb, each of 
which must be established 
efore moving to the next one. 
Camp 0 (Base Camp) is the 
owest and, at the start of the 
climb, contains all the people as 
well as the supplies. 

















Because It's There 

Moving supplies and people 
about while on the mountain is 
achieved by defining four types 
of movement: 

1) CARRY This is where people 
carry supplies up to another 
camp, leave their loads there 
and return to their original 
camps. This provides a way of 
ng loads without moving 
people and is the type of 
movement Sherpas and porters 
are usually used for. 

2) MOVE This is a similar type 
of movement to CARRY but 
here the carrier remains at the 
camp he carries to. This is used 
when establishing a new camp 
or for moving people around 
lower down on the mountain. 

3) ROUTE This is the movement 
used when you are trying to 
force a route up the mountain. > 
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DAY 1 






ROUTE FORCING 


Route forcing from which camp?@ 


You are on a fresh route 


Ho. of climbers on route?18 
Group too large 
climbers on route?4 


e_lengths laid. 
S_lengths to go 
gain tomorrow 


9 
5 
Bi 
@ 
8 
4 
3 


How Blan your movements for 


BEEN when you are ready? 


WEATHER:Poor - strong winds forecast 


Movement 1: 


Input type of movement 


12 Carry 
3) Route 


a 
Input type of load 


22 Move 
4) Summit 


1) Equipment 
33 Fangemees rood 
4) Oxygen 5) No Load 


7a 
Input carrier 


4) Climber 
2) Sherpa 3) Porter 


loads 
Route not established 


Another movement (YES/NO)? 


Entering this causes a branch to 
a separate subroutine where 
details of the movement are 
requested. Between each camp 
are a number of sections all one 
rope-length long; each section 
requires one unit of equipment 
to complete. 
The number of rope lengths 
completed is random but the 
more people on the route (up to 
a maximum of four), the more 
lengths will be laid — the 
number of sections between 
each camp can be altered to 
make the climb easy or difficult. 
Occasionally, part of the route 
may be destroyed by an 
avalanche and have to be 
repaired so it is often wise to 
leave some equipment a 
Camp O! 
4) SUMMIT This is a self- 
explanatory movement used 
when you have reached Camp 
6, although you must remember 
there are two rope lengths 
above Camp 6 which must be 
laid before the summit attempt 
is made. All the climbers at 
Camp 6 are assumed to take 
part but there must be at least 
two. The success of the attempt 
is dependent on the weather (as 
are CARRY and MOVE), so you 
should be prepared to wait at 
Camp 6 for good weather. 


























Tactics 
At the beginning of the 
program, there is only one way 
to go and so there is no need 
initially to worry about tactics 
However, as soon as Camp 1 is 
reached, a problem arises — 
how much should you build it 
up before moving on? The score 
you get on reaching the summit 
depends on the number of days 
it takes you, so fast ascent is 
desirable. On the other hand, if 
you move up too quickly the top 
climbers will soon run out of 
supplies. Another factor to be 
taken into account is the 
distance the Sherpas and 
porters can move in one day, ie 
two camps. Obviously, the 
Sherpas and porters are being 
used most efficiently when they 
carry loads up two camps and 
so it is sensible to build up 
alternate camps on the climb. 
By this argument, Camp 1 
should not be heavily stocked 
— although it is a good idea to 
provide sufficient tents and food 
or an unexpected descent. 
After reaching Camp 2 it is 
a good idea to pause for a day 
or two to stock up this base 
before moving on. All the time 
climbers are above Camp 2, 
here should be a daily flow of 
supplies from Camp 0 to Camp 
2. Camp 3 is another relatively 
unimportant camp, although it 
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does become important later on, 
since Sherpas can carry loads 
from Camp 3 directly to Camp 
5. Camp 4, and those above it, 
pose a new problem since 
oxygen is needed. Oxygen can 
be used up very quickly and 
thus it is vital to keep a good 
supply at Camp 4 carrying 













his stage 
danger from the ‘ 
This is not a 
feature but occurs ¥ 
supplies at a high 
insufficient, forcing 
to retreat. They mo 
the next camp, and 
doesn't have enough 
the occupants of thi 
forced to retreat as 
on right down the mou 
Often this occurs just 
people are ready to m 
summit attempt and the 
stranded while everybody 
has been forced down to 
Camp 2! 

If you managed t 
this trap and are lu 
weather then you ca 
reach the top in ju 
month. It is a very good idea 
(unless you have a 
photographic memo 
a pencil and paper 
running the progra 
then note down yo 
movements for the 
when all the suppl 
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day. 


HOW TO PLAY 
Typing ‘RUN’ produces the 










heading ‘Day 1 
weather report 
ahead and ask 
input. Since, a 
only way to go 
should be en 
program then |} 
‘ROUTE’ sub 

ill be asked 
you are cli 


is then prin 
program branches back to the 
main body where you are asked 
if you want to make another 
movement that day. Entering 
‘NO’ signals the end of that day 
and a series of status reports are 
produced. 

First, the day's movements 
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What is BASIC? 
Microcomputers are the tool of the 80’s, BASIC is the language that all of them use. So the sooner 
you learn BASIC, the sooner you will understand the microcomputer revolution. 


30 Hour BASIC is a simple self-instructional course on the language of microcomputers. But programs 
need more than language: they need structure as well. So the course also teaches you good program- 
ming techniques. You'll learn how to keep, order and sort files, records and directories; how to 
print letters and addresses; how to invent your own computer games; how to handle numbers and 
so on. 


Can anyone take the course? 

Yes. You don’t need a microcomputer to do the course: you can study it by yourself or as an NEC 
correspondence student. Used without a computer it will take you about 30 hours. But you will 
get more out of it if you have your own microcomputer or access to one. That way you'll need to 
allow extra time for keying and running programs. 


Which computer? 

30 Hour BASIC has been specially prepared for The Computer Programme (BBC TV) but can be 
used with any microcomputer except the ZX80. (If you are going to use a ZX81 you will need 
the special Z81 Edition of the course which we will supply — make sure you tell us which edition overleaf.) 


For use with the standard edition of 30 Hour BASIC, we will supply free an extra sheet of notes for 
most other microcomputers (for 380Z and 480Z users — an extra Guide can be obtained free of charge 
from Research Machines Ltd., Mill Street, Oxford), Make sure you tell us you need the extra free sheet 
— see Order Form. 


What does a program look like? 
Here’s a simple example: a personal telephone directory to type into your computer. 


10 REM**TELEPHONE DIRECTORY** 
15 CLEAR 100 (not needed on all computers) 
20 INPUT “NAME OF PERSON SOUGHT”; Q$ 
30 READ N$,T$ 
40 IF N$="ZZZZ" THEN 70 
50 IF O$=N$ THEN 90 
60 GOTO 30 
70 PRINT O$ “IS NOT IN FILE” 
80 STOP 
90 PRINT O$; “ ‘S NUMBER IS ”; T$ 
100 STOP 


Then you add your own personal data. 


200 DATA BILL, 45335 
210 DATA MARY, 74558 
7 etc for up to 100 names. 
300 DATA 222ZZ, 1234 
And now to use it. 
RUN 
NAME OF PERSON SOUGHT? MARY 
MARY’S NUMBER IS 74558 


As you can see, programs are mostly in simple English with a few abbreviations and symbols, This 
helps you to learn to write programs quickly and easily. 30 Hour BASIC shows you step by step how 
to build up programs like this. At the end of the course you will have an extensive library of useful 
and interesting programs. 


Cassettes 

If you are a slow typist or just short of time, you may not want to key in all the programs in the 
course. To save you the bother, you can buy from NEC two cassettes of all the main programs in the 
course. Price £5.98 each. These can be ordered in section B of page 4. (NB These cassettes are suitable 
for the BBC Microcomputer only.) 


Certificate in Computer Literacy 


The National Extension College has made arrangements with the City & Guilds of London Institute 
(CGLI) for the CGLI to offer a new assessment to lead to a Certificate in Computer Literacy. It will be 
possible to sit for this assessment at centres throughout the UK. For details write to Mr A. N. A. Ward 
City & Guilds of London Institute, 46 Britannia Street, LONDON WC1X 9RG. 


o 





How to enrol 
You can study the course in one of three ways: 


1. By enrolling as an NEC correspondence student. You do this by completing section A on 
Page 4. We will then send you the course and appoint one of our correspondence tutors to 
you to mark and comment on your assignments. There are nine assignments in the course. 

2. You may be able to take the course at a local FlexiStudy centre. Try your local college of 
further education and your local education authority. NEC is Preparing a list of centres 
offering 30 Hour BASIC. Write for details if necessary. 

3. You may wish to study the course by yourself without the help of a tutor. To do this, simply 
order the course text using section B of page 4. 


Course contents 
Introduction 


UNIT 1 Simple statements and commands 
1.1 What does a computer do?, 1.2 What is a computer?, 1.3 What is BASIC?, 1.4A simple prob- 
lem, 1.5 Statement numbers, 1.6 Execution and commands, 1.7 Execution and data, 1.8 INPUT, 
PRINT and LET, 1.9 Store locations, 1.10 Copying and overwriting, 1.11 Arithmetic operators, 
1.12 Numerical constants, 1.13 The remark Statement: REM, 1.14 More complicated arithmetic, 
1.15 Literal printing. 


UNIT 2 Making decisions 
2.1 Introduction, 2.2 PRINT. . + 2.3 Repetitions and GOTO, 2.4 Programming style, 2.51F... 
THEN ..., 2.6 Inequalitites, 2.7 Flowcharts, 2.8 Counting, 2.9 Comparisons. 


UNIT 3 Strings 
3.1 What is a string?, 3.2 More about strings, 3.3PRINT...;..., 3.4 INPUT“, . of eee 30 Num= 
bers and strings in PRINT Statements, 3.6 Standard letters, 3.7 Patterns, files, READ with DATA, 
3.8 Sorting. Appendix. 


UNIT 4 Lists 
4.1 Variables, 4.2 Lists, 4.3 List variables, 4.4 List input and output, 4.5 The FOR...NEXT... 
loop, 4.6 Nested loops, 4.7 Interchanging. 


UNIT 5 An end to strings and PRINT 
5.1 Introduction, 5.2 Length of a string of characters, 5.3 Frequency tables, 5.4 Frequency 
diagrams, 5.5 Tabulation, 5.6 Cutting up strings, 5.7 VAL. 


UNIT 6 Mainly about dice and games 
6.1 Random numbers, 6.2 The RND function, 6.3 RND on the BBC Computer, 6.4 Random 
number postcript, 6.5 Two examples, 6.6 Keeping scores, 6.7 Short cuts in program writing, 
6.8 Concatenation, 6.9 STR$. 


UNIT 7 Handling numbers 

7.1 Introduction, 7.2 Averages and the arithmetic mean, 7.3 Range, 7.4 Number crunching, 
7.5 Dry running, 7.6 The representation of numbers, 7.7 The INT-function for rounding, 7.8 The 
ABS-function, 7.9 Iteration. ; 


UNIT 8 Introduction to data Processing 
8.1 Introduction, 8.2 Sorting, 8.3 Subroutines, 8.4 Searching, 8.5 Tables. 


UNIT 9 File-handling (NOT INCLUDED IN THE 2X81 EDITION) 
9.1 Saving programs, 9.2 LPRINT, 9.3 Sequential files, 9.4 Create and access, 9.5 Files in flow- 
charts, 9.6 Sorting filed data, 9.7 Merge, 9.8 Delete. 


INDEX 


Each unit contains self-assessment questions with full answers. At the end of each unit there is an 
assignment for tutor marking. 


A 
CORRESPONDENCE COURSE ENROLMENT FORM 


Fill in this form and post it to the National Extension College, 18 Brooklands Avenue, Cambridge CB2 2HN. We will post 
your course and details of your tutor to you. You can start the course as soon as you get it and, when you are ready, post 
your first assignment to your tutor, 


What does it cost? 

The full fee for 30 Hour BASIC with tuition is £36 which covers your course material and tuition. (The cassette tapes are 
not included in this fee. If you want the tapes as well, please order them separately.) If you wish to pay the course fee 
by instalments you may do so with a deposit of £14 and five monthly instalments of £5 (total £39). 


Conditions of enrolment 

As soon as your enrolment is accepted, the course will be sent to you, If within six weeks of the date of despatch (two 
months if you live abroad), you decide that the course is too difficult or unsuitable for any reason, you may write to us 
and cancel your enrolment. You would then receive back the full amount of the fees you have paid less an administrative 











FOR USE UP TO 1 SEPTEMBER, 1982. Price and Fee revisions expected 


PLEASE COMPLETE IN BLOCK LETTERS 
Title and initials Office use only 


Forenames 1] | LI] et ee] Student No, 

Surname [| ie | a ae zi oe ia el 

Address [| Ea] EEE Lee im S| Tutor No. 

Les ay ah Tate Lae 2a nm wl 

Ie] ae a a fete © 
im 




























































































Postcode ESeeeeanm) rasta students: please add extra for overseas 
ee OE OO Om 


postage — £7 Europe; £8 outside Europe. 
day month year 



































Date of birth Occupation 





Have you enrolled on an NEC course before? yes no 

Previous student number (if known) 

Will you own/have access to a microcomputer when you are taking this course? 
If you will, please state the name and model 





PAYMENT 

Please complete one of (a), (b), (c) or (d) below. 

(a) Full payment now Dittick) 

| wish to pay the full fee now and enclose a cheque/PO for £36. 

Credit eral] (tick) 

| authorise you to debit may Access/Barclaycard/Trustcard account with my tuition fee of £36 


Access Account No. fy | 
Barclaycard Account No. H | | 
FeustcsrdAcsounetes. 1) | eet | 


Cash instalments Dittick 
| wish to pay by cash instalments and enclose a cheque/PO for the deposit of £14 and agree to pay five monthly instalments of £5. 


(b) 


























(c 


(d) Bankers’ Order oO (tick) 


BANKERS STANDING ORDER FORM 


(Fill in the TO:] THE MANAGER 





name and address 
of your bank in 


block capitals.) 


Please pay Midland Bank Ltd., 465 Bethnal Green Road, London E2 (40—01—18) for the credit of the National Extension 
College Trust Ltd. A/C No. 70614939. 








the sum of £14 commencing on the fifth day of 1982, and on the same day of each following calendar month for five 
months the sum of £5 AND CHARGE SUCH PAYMENTS TO MY ACCOUNT. 


Yours faithfully, Current A/C No. 
SIGNATURE 


Name 
(block letters please) 
Address 








NEC Ref.No. 








Signature Date 





B ORDER FORM: CASSETTES and/or SELF-INSTRUCTIONAL COURSE 


Please supply: £ 


.copies of 30 Hour BASIC without tuition, standard edition, @ £5.50. 
bse .copies of 30 Hour BASIC without tuition, ZX81 edition,@ £5.50 
Sian naroutd copies of cassette 1 @ £5.98 inc VAT (BBC Computer only) 

mri eauenee copies of cassette 2 @ £5.98 inc VAT (BBC Computer only) 





for free sheet, my microcomputer is @...........0000eee00e 
peneernen Linex Flow Chart Template (if wanted, not essential) £3.50 inc. VAT 


Cheque/PO enclosed for: TOTAL 
(prices inc p&p in the UK) 


Name (BLOCK LETTERS) 
Address . . 











Send to: National Extension College, 18 Brooklands Avenue, Cambridge CB2 2HN, _ Inspection copies for College use 
available. 


GROUP TRAINING SCHEMES AVAILABLE — WRITE FOR DETAILS. 5/82 








are printed out, those not 
achieved (the success of a 
CARRY depends on the 
weather, although those made 
by climbers are always 
successful) being indicated by 
‘INCI’. The next status report is 
a supply check which gives a 
clear indication if any camp is 
not sufficiently stocked with 
tents or consumables (in 
extreme cases the occupants 
will retreat to the camp below 
them). Finally, a comprehensive 
picture of the situation on the 
mountain is given, displaying 
the contents and occupants of 
each camp. 

The program then starts a 
new day and the process begins 
again. The number of possible 
movements increases very 
rapidly as you progress up the 
mountain so you need to 
develop a strategy for your 
movements later in the 
program. 

The rules of the game are as 
follows: 

1) At the start of each game all 
people and supplies are at 
Camp 0. 

2) A maximum of 10 movements 
are allowed per day. 

3) At the end of each day, all 
the day's movements are printed 
out and those which were not 
actually ‘carried’ are marked by 
‘INCI’. 

4) Tents usually hold two people 
but can hold up to three. 

5) One unit of food lasts four 
man-days. 

6) One unit of oxygen lasts one 
man-day at Camp 6 and two 
man-days at Camps 4 and 5. 

7) The success of a CARRY 
depends on the height and the 
weather, although when the 
weather is ‘perfect conditions’, 
all ‘carries’ are completed. 

8) Before any new camp site is 
established, fixed ropes must be 
laid from the camp below. 

9) Only climbers can force the 
route up the mountain. 

10) A maximum of four climbers 
are allowed to force the route at 
any one time. 

11) Only one attempt per day is 
allowed on the route above any 
one camp. 

12) All occupied camps must 
have sufficient supplies for the 
people in them at all times. 

13) Nobody can move more 


Personal Software Summer ‘82 














than two camps up or down in 


any one day. 


14) Climbers need oxygen at 
Camps 4 and above. 

15) Sherpas need oxygen at 
Camps 5 and above. 

16) Porters are not able to move 


above Camp 2. 


SCOPE FOR 
ALTERATION 

To make the climb easier or 
more difficult, you can alter the 
number of sections between 
each camp. 


PROGRAM STRUCTURE 


Line 10 
Lines 20-180 


Lines 190-470 


Lines 480-510 
Lines 520-580 


Lines 590-630 
Lines 640-690 
Lines 700-850 
Lines 860-1070 


Lines 1080-1290 
Lines 1300-1640 
Lines 1650-2080 
Lines 2090-2220 
Lines 2230-2300 
Lines 2310-2560 


Lines 2570-2690 
Lines 2700-2900 


Lines 2910-2970 





Lines 2980-3250 


Lines 3260-3360 


Set Up 


Daily 
Movements 


Extra 
Movements 
Messages 
Height 

Reset Arrays 
Weather 


Status 


Move Logic 
Carry 

Route Forcing 
Summit Bid 
End Game 


Avalanche 


Consumables 


Supply Checks 


Retreat 


Summary 


Data Arrays 





Calls routine to set up arrays 
and initialise variables. 
Counts days since the start of 
the climb. Calls weather 
routine and asks user to 
choose which type of 
movement is to be done. 
Asks user to choose type of 
load, type of carrier, origin 
and destination of loads and 
number of them. 

Gives user the option of 
further movements. 

Calls routines to display 
information from top line of 
screen. 

Works out highest point 
reached. 

Resets arrays for the six 
camps. 

Selects weather conditions at 
random and displays them. 
Displays a table of 
information regarding 
supplies at camps. 
Calculates the outcomes of 
the movements selected. 

If CARRY is specified, checks 
for legality of move. 

Input, logic and messages for 
route-forcing option. 

Logic and messages for 
attempt to reach the summit. 
Allows option of another 
game and prints score. 
Generates avalanches at 
random and displays 
messages. 

Calculates consumption of 
commodities. 

Checks whether sufficient 
supplies remain and prints 
messages. 

Prints message and does 
calculations in event of a 
retreat. 

Displays a summary statement 
of the day’s movements — 
any not achieved are denoted 
LNG 


Sets up initial data arrays. 


51 
































GOSUE 3270 
REMXXINFUT 
StDD=DD+1 
"+STR&(DD)3GOSUE S60 







$GOSUB 2320 





10 
4 No more carries"$GOTO S20 
PRINT? PRINT Movement. NMP US" SE RINT 
HS Tne type of movement" 


THEN 110 











PRINT "1) Carry',"2) Move" 
PRINTS) Rowte's"4) Summit" 
PRINT 





INFUT INS 
M1 =VAL (ING) 


Mie THEN 170 

L46603GOTO 480 
GOSUB 21003GOTO 480 

NT' Input type of Load" PRINT 
) Eaquipoent" 

INT"2) Tents" ,"3) Food" 

[NT"4) Oxygen, No Load" 

NT 

INPUT IN#?M2=VAL CIN) 

TF M22. OR M2>S THEN 270 

PRINT 

NT’ Input carrier" {PRINT 

NT "1) Climber" 

PRINT'2) Sherpa"',"3) Forter™ 

PRINT 

INPUT IN#?MS&VAL CLINGS) 

IF M321 OR M323 THEN 340 

PRINT 

INFUT"Camp of origin! ,INGIM4#VAL. CING) 
420 OR M46 THEN 370 

M420 AND ING" 0" THEN 370 

UT" Dectination camp's, IN6{MSe@VAL CLNG) 
M520 OR MESS THEN 400 

IF M&#0 AND IN "0" THEN 400 

TNEUTY Number of Loads") INS SM6@VAL CLINGS) 
TF M680 THEN 430 

IF M6=0 AND ING<2"0" THEN 430 

GOSUB 1090 

PRINT 

INFUT" Another movement (YES/NO) "> RM 

‘ LEFT# CRM y 1) 

IF RMG#"¥" THEN CLS tGOSUE 
TF RMS NY THEN 480 
GOSUE 25803GOSUB 29901 GOSUE 
GOSUB B70IGOTO SO 
REMMAUTIL ITY 

REMXXTOP Lire 

PRINT TABCO, 1) tT 

INT 

URN 

REMKKHIigh Point 




































S60GOTO Bo 








710 









GOTO 610 

REMXX Array resets 
FOR D=0 TO 6 
DECM)=CL CD) fDSCD) 
FOR D=0 TO 2:DF(D) 3 

FOR D=0 TO 1LO3M8(D)=0"$NEXT 

RETURN 

REMX*WEATHER 

RINT' WEATHER?" $ 

WeINTCRND CL) *34144) 

ON W GOTO 740,800,820,840 

TF RNDC1)>.85 THEN 770 

FRINT'Very bad ~ snow & wind forecast" 
RETURN 
PRINT'! STORM 
TNPUT'Fress f 
TURN 
NT" Foor 
TURN 
INT'Good = only Light snow predicted" 
TURN 

NT'Parfeet conditions" 
URN 

MxxXDISELAY 

CLSIGOSUB 540 





H(D) {NEXT 



















L today" 
22% 


! = No move: 
URN to contin 















strong winds forecast" 





880 
B90 
900 


P10 
920 


930 
940 


950 
960 


970 
P80 


990 
1000 


1010 
1020 


L030 
1040 
1050 
L060 
1070 
L080 
LG9d 
1100 
Lid 
L120 
L130 
L140 
1150 
1160 





1220 
1230 
1240 
250 
1260 





1390 
1400 
1410 

420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 





1590 
1600 
1610 
1620 
1430 
1640 
14650 
1460 
1670 





FOR D=0 TO 4% 
PRINT? PRINT IF 
FOR D=0 TO 6t 
NEXT 
PRINTSPRINT' Tents" ¢ 
FOR D=0 TO 43F F 
TN(D) 3 NEXT 
PRINTS PRINT" Food" $ 
FOR DeQ TO 62FPRINT 


TAB CLO+4XD) 7DE 
pment"? 
HCLO4+4XD) SEQCD) $3 


NEXT 










HCLO+ARD) 5 








TAB CLO+A4XD) SFDCD) $ 





NEXT 

PRINTIPRINT'C ck 

FOR D#0 TO StF Pp TAR CLO+AKD) SOXCDI EE 
NEXT 


re" s 


PRINTS PRINT SPRINT" CL 
F LOF4D) FOLD) F 


RK D=0 TO 6tPRINT TAB 











T'Sherpas'} 













i OF D20 TO GtPRINT TARCLO+4*D) SSHCD) 3 t 
NEXT 

PRINT SPRINT" Porters" 

FOR D#0 TO Z3PRINT TABCLO+4XD) PT CD33 
NEXT 

PRINT SPRINT 

f NT'Now plan your movemer for 
PRINT’ Day "SDDtL 3 PRINT 





TNPUT"T 
RETURN 
REM*SMOVE , CARRY 

SONM)#! MA STRECMIL DE UF STRE MZ) 

ME CNM) = ME CNM E' UAGTRR OMS) 64 UAGTRE CMA) 
MECNM) = Mb ONM) E' UFOTRECME DEY UFSTRE CMG) 
ME“OfGOSUE 13103TF ME=2 THEN RETURN 

TF ME=. THEN NMSNMe 1 SRETURN 

ON M2 GOTO 1190,1170,1190,1210,1220 
EQ(M4) EQ (M4) “M6 SEQCM QMS) 4MG 

GOTO 1220 

TN (M4) TN OM4) @ MGS TN CMS) = TN CMS) MG 

GOTO 1220 

FD (M4) @FD (M4) M6 SFPD CMS) 
GOTO 1220 

Ox«M4) OX(M4) = “M6 SOXCMS) 
M N RETURN 

ON M3 GOTO 1240,1260,12 
CL.CM4) OL OM4) M6 SCL OMS 


ETURN when you are ready" > Z 














DCMS) +M6 





#0X (MS) +M6 








=CL (MS) 4+M6 





RETURN 


“GH CM4) “M6 


$SH(MS)=SHCMS) +M6 













PT OM4) M6 SPT OMS) @P TOMS) +N} 
MxXCHECK 1 

IF M3<>3 OR ME 
PRINT" Porters 
ON MZ GOTO 1340, 1360, 1380, 1400,1420 







IF EQ(M4) <M THEN 1420 
GOTO 1410 
IF TN(M4) = THEN 1420 





GOTO 1410 

TF FDCM4)=Mée#0 THEN 1420 
GOTO 1410 
ee CMA): 
B 





«#0 THEN 1420 

RINT’ Too few supplies for carry" {ME=L 
M3 GOTO 1430,1450,1470 
IF DC(M4)-M6<0 THEN 1490 
DOCM4) #DCCM4)-M6{GOTO 1500 
IF DS¢M4)-M620 THEN 1490 
DS(M4)=DSCM4I-MSIGOTO 1500 
TF DF(M4)-M6<0 THEN 1490 
DFCM4)=DECM4)@M6IGOTO 1500 
T"Too few carriers for 
LS20 

















carry tME= 
















FP RINT'T 
IF MS-M4 HE 40 

TF RE CM4+1,1)¢>RF(M4,0) THEN 155 

RE OM4, 1) OR M4°MS THEN 1560 
fowte not established" IME=1. 

THEN RETURN 

THEN TURN 

THEN RETURN 

ND C1 « CW+RND OL) 


gain" tME=1 














+25 THEN RETURN 
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14680 
1690 
1700 
1710 
1720 
1730 


1830 


1840 
1850 
1860 
1870 
1880 
1890 


1900 
1910 
1920 
1930 
1940 

950 
1960 
1970 
1980 
1990 
2000 


2060 
2070 
2080 
2090 
2100 
2LLO 
2120 
2130 
214u 
2150 

2160 
2170 


2230 
2240 


2480 
2490 
2500 

10 


PRINTSPRINT' ROUTE FORCING" SPRINT 
PRINT" Rawte forcing from which camp"? 
INFUT INS?M4=VAL CING) 
>6 OR M420 THEN 1700 
AND INS=>"0" THEN 1700 
S2M4 THEN 1750 
NT"One try per day" $ RETURN 
Q(M4)=0 THEN 1770 
PRINT"No equipment available" ?RETURN 
IF RF(M4,0)<>RF(M4,1) THEN 1790 
INT'Route already completed"?RETURN 
PRINT ?RF=M4 
IF RF(M4,1) THEN 1830 
FRINT'You are om a fresh route" 
GOTO 1850 
PRINT TAB(O)3RF(M4,0)-RFCM4,1)3" 
rope lengths to" 
FRINT"go to finish route" 
PRINT 
INFUT"No, of climbers on route", IN$ 
MS=VAL (INS) SIF Mé<=0 THEN 1860 
TF CL¢M4)<>0 THEN 1900 
PRINT'No climbers available": 
RETURN 
IF CL(M4)~-M6>=0 THEN 1930 
PRINT'Only "“$CL(M4)3" climbers available" 
GOTO 1860 
IF M6<=4 THEN 1950 
FRINT"Group too Large"tGOTO 1860 
PRINT 
RTS INT CRND CL) XMS +1) 
IF RT*EQ(M4) THEN RT=EQ(M4) 
EQ(M4) =EQ(M4)<RT 
(M4, 1) RF CM4, 1) +RT 


RF (M4, 1) 2=RF(M4,0) THEN 2050 


TABCODSRT3" rope lengths laid," 
INT'Still "SRF (M4,0)—-RECM4.1)3 
naths to go" 
INT" Try again tomorrow" {RETURN 

RE OM4 sl) RE OM4,0) 

PRINT" Congratulations" 

PRINT" You have completed this section" 

RETURN 

REM*XSUMMIT 

CLSSGOSUE 540 

MS(NM)=" 4" 

PR SUMMIT BID" SPRINT 

i RE(6,1)=2 THEN Z150 
INT" Top rope sections rot 

CL(6)%=2 THEN 2170 
INT "Too few climbers for 

ITF RNDCL)*We2.5 THEN 2200 

PRINT "Bid unsuccessful at} 

PRINT'Try again tomorow" }RETURN 

PRINTS SR=SR+CL(46) 

PRINT" !!! SUMMIT REACHED !!" 

PRINTIFPRINT' Congratulations" SPRINT 

PRINT "Do you want to make another "+ 

PRINT attempt"? 

INPUT" CYES/NO)",.D¢ 

IF D$ts"N" THEN GOTO 2250 

IF Ds. ' THEN RETURN 

$=(SR*X1000)/DD SPRINT 

PRINT" Your score is"3$ 

END 

REM*X* ACCIDENT 

TIF RNDC1)<.9 THEN RETURN 

RAN=INTCRND(1)*1. 444 

ON RAN GOTO 2360, 

REM**x TCE FALL 

GOSUB 600°TF HP<1 

RAN=INT CRND (1) «2 

RF CO,1)=RFCO,4) 

PRINT'An avalanche has swept away 

art of the route between 

PRINT'camps 0 & 1." 

FRINT TAB(O)3RAN$" lengths "3 

FRINT"of rope have been lost." 

"RINT' This must be repaired before" 
INT"any loads can be moved from"} 
cINT' Camp 0." 

RETURN 

REM*XAVALNCHE 

GOSUB 6003AC=INTCRND (1) *HP) 

PRINT "Camp "3A has been hit by an" 

PRINT "avalanche" 


laid" {RETURN 


bid" {RETURN 


THEN RETURN 
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252 


2530 
2540 
2550 
256 

2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2940 


2970 
29780 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
312 

3130 
3140 

















RAN=INTCRND(L)*241.6) 
PRINT TAB(CO) 3 RAN? 
FRINT" tents t © been lost." 
TNCAC)=TNCAC)-RAN 
RETURN 
REM**CONSUMAEBLES 
FOR D=0 TO 6 
TP=CL(D)+SH(D) 
abt Ay, THEN TR=TP+FT(D) 
Hl eit THEN NEXT RETURN 
IF THEN OX(D)=O0X(D)-CL(D)/2 
Ze THEN OX(D)=OX(D)~TF/2 
IF THEN OX(D)=0X(D)~-TF 
FO(D D(D)~INT(TP/4+.5) 
IF OX(D)<0 THEN OX(D)=0 
IF FO(D)<0 THENFD(D)=0 
NEXT 
RETURN 
REM *CHECK 2 
CLS{GOSUB Sé03PRINT 
PRINT" Supply Check" {PRINT 
FOR D=0 TO 6 tEV=0 
TP=CL(D)+SH(D) 
THEN TP=TR+PT(D) 
°0 THEN NEXT?INPUT D$iRETURN 
<=2*TNCD? 2800 
‘Too few tents at camp "3D 
e TP>4*TNCD) THEN EV=1 
© TP<4xFD(D) THEN 2830 
PRIN ood is running out at camp's) 
IF TPS6*FD(D) THEN EV=1 
IF D24 THEN 2870 
IF TR22*OX(D) THEN 2870 
PRINT’ Oxygen is running out’ at camp"3D 
IF TP»3xOX(D) THEN 1 
IF EV=1 THEN GOSUB 2920:GOTO 2890 
PRINT "Everything OK at camp "3D 
NEXT 
INFUT D&S RETURN 
REMXRETREAT 
PRINT3PRINT'!!! The climbers at camp";D 
PRINT"are retreating! !"$PRINT 
CL(D-1)=CL(D-1)+EL(D) CLD) =0 
SH(D-1)=SH(D-1)+SH(D) $SH(D)=0 
IF D THEN FT(D-1)=PT (D1) 4+F TCD) 
PT(D)=0 
RETURN 
REMXPRINT CARRY 
CLS:GOSUB 560 
PRINTSPRINT"The days movementst=-"tPRINI 
FOR D=1 TO NM 
PRINT TABCO)SDE"S"3 
IF FNM(2)>4 OR FNM(2)<1 THEN GOTO 3230 
ON FNM(2) GOTO 3050,3060,3070,3080 
PRINT"carry,"33GOTO 3090 
“Move $GOTO 3090 


PRINT" Eauipm 
PRINT" Tents," 
PRINT"Food," 
PRINT" Oxyaen 
FRINT"No load, 
ON FNM(6)GOTO 3160,3170,3180 
PRINT'Climber,"3iGOTO 3190 
PRINT"Sherpa,"33GOTO 3190 

F Porters 

PRINT FNM(8)3"=2"$FNMC10O)$","SFNNC12) 3 
IF RIGHT#(M$(D),2)="NC" THEN 3220 
FPRINT:GOTO 3230 


t."3iGOTO 3150 
GoTo 30 

OTO 31f 

GOTO 3150 


PRINTSPRINTIPRINT"Presss RETURN 
to continue" 
INFUT Z$$RETURN 
REM**INITAL 
DIM EQ(&),TN(6),FD(S) ,OX(46) 
DIM CL<6),SH(6),PT(46) 
DIM DC(4),DS¢6),DF (46) 
DIM RF(G&,1),M$(10) 
EQ@(0)=1003TN(0)=752FD(0)=90020X(0)=80 
$SH(O)=34°FTCO)=25 
TO 6$READ RF(D,0)$NEXT 
DEF FNM(KD)=VAL (MID$(M$(D),KD,2)) 
RETURN 
DATA 6554443,4,3,2 








Converted from a program by S Draper 


DAMBUSTER 





Use your judgement to 
destroy a dam with a 
bouncing bomb. 








arnes Wallis’s bouncing interrupt the Nazis’ armament enterprise catch the 

bomb and the daring air industry are more than history. imagination. The ingenious 

crews who risked flying They are a twentieth century design of the bomb was the 
deep into enemy territory to legend. initial marvel. But the skill and 
bombard the Ruhr and so So many aspects of the courage required to make them 


Photograph courtesy of Thorn EMI Video Programmes Ltd. 
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effective was even more 
remarkable. Only if the bomb 
struck the water at the correct 
height and distance from the 
dam would it actually destroy its 
target. 

The airmen faced multiple 
dangers: the flight levels 
required for dropping the 
bombs were so low they ran the 
risk of crashing; they flew for 
many miles inside enemy lines 
thus risking being shot down; 
and they were flying to the 
limits of their fuel capacity and 
so had to take care to conserve 
fuel in order to return safely to 
base. 

This program simulates a 
dambusting raid — but without 
the additional risks of facing 
enemy fire or running out of 
fuel. 





TECHNICAL DETAILS 
This is a straightforward 
conversion from PET BASIC. 
The procedure PROCKY is used 
to convert PET screen address 
POKEs to BBC BASIC PRINT 
TAB(X, Y); CHR§&(C); using the 
usual method. The only PET 
graphics characters required 
are produced in lines 10-40. 


HOW TO PLAY 


The screen displays a reservoir 
with a dam across it. The 
objective is to destroy the dam. 
You have three aircraft, each of 
which carries a single bo 
The initial height of t 
aircraft is set at rand 

















make it go UP) or ‘D 
go DOWN). Take caret 
— if you fly too low you m 
crash. To drop your bomb press 
‘B’. It will then fall in a 
parabolic arc towards the water 
and will bounce along the 
surface of the water until the 
maximum height of the bounce 
drops too low. 

If you hit the dam with your 
bomb you will destroy it. After 
your first aircraft has crashed or 
completed its mission, the 
second will appear. When all 
three aircraft have been used, 
your score (the number of dams 
destroyed and the number of 
aircraft crashed) will be 
displayed. 
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PROGRAM STRUCTURE 


Lines 10-50 
Lines 60-110 
Lines 120-220 


Lines 230-420 


Lines 430-510 


Lines 520-650 


Lines 660-860 
Lines 870-1000 
Lines 1010-1060 





Lines 1070-1110 





Set Up 
Initialise 
Plot Dam 


Aircraft 
Action 
Bomb Logic 
Dambust 


Low bomb 
End Game 


Address 





Photograph courtesy of Thorn EMI Video Programmes Ltd. 


Selects MODE 4. Defines 
graphics characters. 

Defines arrays used and sets 
initial values of variables. 

Plots screen display of ‘reservoir’ 
and ‘dam’. 

Sets initial position of aircraft at 
random height. Checks height, 
issues warning and registers 
crash if drops too low. 

Gets keypress and responds by 
alterting height of aircraft or 
dropping ‘bomb’. 

Causes bomb to drop in 
parabolic arc and bounce. 
Destroys dam. 

Prints bomb splash, 

Prints score message and asks if 
another game is wanted. If so re- 
runs, if not ends. 

Converts PET screen address to x 
and y co-ordinates and prints 
character. 








DAMBUSTER 


ypu 
RFF YR 
YDU 
ypu 


DI (2); 


W=01G=037 
1 


1=0 


PC Qa 


4, 8FP BPP, BPE APE 


vRPP RPP, 


25, RFF BFE, 04070505050 
2.640/070,0,0,0,8FF) &FF 


WORD may 
0 


TF Ge@ THEN 1040 
De Ose OGed Yad 


FOR Ast T 


PROOXY (33. 


NEXT A 
oR Ast T 
POR Gea 7 


0 40 

R7+AY Z24) 
03 
0 


PROCKY (33437+A4+40KE, 224) 


NEXT fs 
NEXT 4 
POR Ast 
PROGXY ¢ 


NEXT A 


30 


274A, 225) 


IF Ged THEN 260 


GaltHcLy 
XC «0 


RND C16) 4 


IF Y=1 THEN §30 


VOU 3OtEF 


HOL)82 THEN 


FRINT'DANGER=TOO LOW" SY¥DU 30 


IF WC4)<0 
XCLeXCL) 


THEN 930 


IF X(1)286 THEN 980 


FOR Ast T 
PROCKY CFC 
NEXT A 
PROCKY CFC 
PCL) 
PROCX liad 
PROCXY CF ¢ 
IF Det Th 
PROCKY CF ¢ 
PROCXY (F¢ 
PROCXY CF ( 
IF D=1 Tt 
Abs INKEY 
xXFX 15,0 
FOR Est 7 
IF Age" 
IF At="p! 
IF At="f 
IF WL dod 


IF A$="U" THEN HC) 


GOTO 270 
FeH(1)$D 
S=S4+1 

H(2) INTC 
X(2)#X (2 
IF xX¢2)>2 





05 


Ly .4A,32) 


140 @ 
#XCLI+4OKC1S 
1) 

141,22 

1EN PROC 
1)42,% 
L144, 22 40,224) 
1EN 


<0) 


:GOTO 400 


0 303NEXT & 
THEN 270 

" THEN HCL) =HCL) 
" THEN 520 

S THEN AgenL" 
HCL) +4 


1{GOTO 270 


1tX(2d=X C1) 


F+S«Sx0,5) 
+1 
9 THEN 440 


r40) 
7% 0 
760 
770 
780 
790) 
800 
610 
820 
830 
840 
B50 
B40 
870 
880 


890 


950 
960 
970 
980 
990 
1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


PROCKY COC 2) 4S 

P(2)=32768 

1 THEN 0 
PROCXY (CP C2), 224) 

LF OWC2 1 THEN 630 
GOTO 60 

PINT CARP /4 4055) 

See TNT SOR CCR KE 
GOTO 60) 


+40KCLG-HC2 


14tA,S 


40>! 
0 THEN 80 

KDAM MILT 

Az1 TO 
YT) 8 
O47 HA OMEDEA, OP) 


32) 
500,32) 
S39 532) 
TO 40 
PROCKY ¢ THRE 
NEXT A 
TT 4 
GOTO BO 
FOR Am1 TO S 
PROCXY CF C2) 440KA, 224 
Bet TO 1S3NEXT 
PROOXY CF 
Youd, 
PRINT TAB(S,30)5" 
HAVE CRASHED!" 


200,32 


TO 
VOR CL L4A, 
A 
PROCXY CE C1) 40 
GeGed 
GOTO 90 
CLOLPRINT SPRINT T "EWS 
" AIRCRAFT. 
FRINT’YOU HAVE DEST E T3" DAMS." 
PRINT" THEREF OF RE IS "3 Tow 
INFUT"DO YO! GAME", Et 
IF LEFTS (ES, 1 EN RUN 
END. 
DEFFROCXY 
YeINT(CA 





TA 
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Converted from a program by Seamus Dunn 


| LEAPFROG 


All you have to do is 
to swap over the 
coins from either side. 
Sounds simple? 








eapfrog is a computer 
implementation of a board 
game more usually played 
in pubs with coins. In its usual 
form there are six coins and 
seven spots, as shown in Fig. 1. 
The purpose of the game is 
to interchange the two sets of 
coins and the rules are very 
simple. 
1. The coins on the left can 
move only to the right and the 
coins on the right can move 
only to the left. 
2. There are two possible types 
of move: 
(a) to an adjoining empty 
spot, or 
(b) over another coin to an 
empty spot. 
Of course, the number of spots 
can be any odd number so that, 
for example, there might be 
four coins on each side and a 
spot in the middle making nine 
spots altogether. This program 
allows you to choose between 
three, five, seven and nine 
spots. 


Jump To It 


There are two distinct 





on a computer. In the first 
place, becoming clear about 
just what is permitted in the 
game is made easier because, 
while it will obviously allow you 
to make wrong or foolish moves, 
the computer will not allow you 
to make illegal or incorrect 
ones. This means that the 
machine forces you to learn the 
rule structure of the game very 
guickly allowing you to 
concentrate on strategy alone. 

The second advantage is 
that it is possible for the 
computer to keep a record of all 
the moves made in any 
particular game. At the end of 
the game this record can be 
assessed and studied. In this 
way, wrong moves can be 
detected, winning patterns 
become clear and the structure 
of the game emerges. 

Once you've played 
Leapfrog for a while, you will 
notice that patterns of 
movement begin to emerge and 
you may begin to wonder about 
how the game might be 
symbolised and its structure 
analysed. When that stage is 
reached, the educational and, 


aspects of the game become 
more interesting. 


GAME ANALYSIS 


The simplest version of the 
game is shown in Fig, 2. 

A few quick trails will show 
that successful strategy is very 
simple and can be coded as 
LRL (or RLR). This means: 

First move the L from 1 to 2. 
Then move the R for 3to 1. 
Then move the L from 2 to 3. 
The next version of the game 
is shown in Fig. 3. 

In this case the successful 
strategy (if you start by moving 
2) is coded as L RR LL RR L. 
This means: 

First move an L piece. 

Then move two RE pieces. 

Then move two L pieces. 

Then move two R pieces. 

Finally move an L piece. 
Notice the pattern of the 
number moves is 12221. The 
strategies for versions of the 
game with three, five and seven 
spots are as follows: 





L RRLL RRL 
L RR LLL RRR LLL RRL 
Turning these into number 
patterns as before: 


111 
12221 
1233321 


we would guess that the nine 
spot version would become: 


123444321 


This signifies that you begin by 
moving the L piece, then two R 
pieces, then three L pieces and 
so on. You can try this out on 
the nine spot version on the 
computer and it does actually 
work. 

At this stage the pattern is 
so simple and obvious that it is 
quite easy to succeed at any 
version of the game. But its 
analysis is not quite complete. 
The general case can be 


advantages to playing the game _ in this case, mathematical symbolised as the case with 2N > 
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LEAPFROG 


PRESS ANY KEY 


Right: The program demonstrates a 
seven-spot game, this is the initial 
starting position... 


22RD 


DRBDAAD 
DADAAD 
ARDDADB 


- 
N 


PRESS AMY KEY 


Right: A seven-spot game in progress. 
The player has obviously not been 
teseng) the program notes as he is 
about fo get somewhat stuck! 


cecece 
i 


a 


oo ol 
Lec 


a 


Left: The game rules as displayed by 
the initial stages of the program. 


FIRST OF ALL THERE ARE 7 
LIKE THIS:- 


SPoTs. 


PRESS ANY KEY 


Left: ...and this is what the game is 
supposed to look like when you finish. 


Cer ecrr 
id la oe a 


N\ 


UMBER OF THE BLOCK THAT YOU 


L 
L 
L 
L 
L 
L 


el pe ee oo ee ad 
Creer 
EEE 
wAAADD 
BRBBWAWD 
DDRDDD 
RADDDD 
eeeeee 
Peer 
DRDDDDD 
DRDDDD 


e 
N 
w 
cm] 
n 
N 


Personal Software Summer '82 










using coins. 


Lines 20-120 



















Lines 130-190 
Display 











Lines 200-590 Example 
Lines 600-680 Rules 
Linés 690-950 Select Game 














Lines 960-1350 | Move 








Error 













Message 
Solution 








Spots 





Blank Screen 





Get Key 

















Address 
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PROGRAM STRUCTURE 





1 2 3 4 EB) : 6 7 


Fig. 1. The traditional game layout 





Ce 





Fig. 2. The simplest possible game with 


the coins replaced by Left and Right 
markers. 





OO e OO) 


Fig. 3. The basic game as far as 
strategy development is concerned. If 
you can solve this one you can solve them all. 


































Displays title and instructions if 
these are required 

Sets up a display consisting of 
seven spots. 

Demonstrates play with seven spots. 
Displays rules. 

Player asked to choose the numbers 
of spots. The appropriate number 
are then displayed. 

nstructions requested from player 
about which spot is to be moved 
where. The legality of the move is 
checked. A move to the right is 
controlled in lines 1140-1240 and a 
move to the left is controlled in 
ines 1250-1350. 

f a disallowed move is attempted, 
an appropriate message is 
displayed. 

Checks to see if correct solution has 
been obtained. If so, the computer 
prints congratulations and asks if 
details of solution are required. 
Offers another game. 

Displays spots on the screen and 
numbers them. 

Blanks out messages from the 
screen. 

Initiates program when any key is 
pressed. 

Converts PET screen addresses to 
x,y co-ordinates 





+ ] spots. That is, N spots on 
the left, N spots on the right 
and one spot in the middle. So 
the pattern of movements can 
be shown as: 





123...NNN...321 
That is, one L move, two R 
moves, three L moves 
continuing until N moves are 
necessary. This number of 
moves (ie N) occurs three times 
and then the number begins to 
reduce by one each time until 
one move only is necessary. At 
this stage the game is over. 
The final question may well 
be ‘what is the total number of 
moves necessary at each level of 
the game’ and a mathematical 
relationship can be used to 
answer this. In the general 
case, the total number of moves 


N)+N+ 
+3424 ]) 


(1+ 2+ 3+ 
(N+ 


That is, 2(N) +N=N(N+ 2). 


TECHNICAL DETAILS 


Leapfrog is converted from PET 
BASIC and graphics. The only 
difficult part of this conversion D> 








LEAPFROG 











is taken care of by PROCXY 
which converts PET screen 
addresses to x,y co-ordinates for 
the BBC Micro's PRINT 
TAB(X,Y);. No special graphics 
characters are used and so none 
are set up using the VDU 23 
command. 

You can usually take a PET 
BASIC conversion further by 
substituting BBC BASIC 
procedures which do the same 
thing. For example, if you look 










SO PRINT? INFUT 


INSTRUCTIONS .",B¢ 








10 MODE 4 

20 A$="~~-LEAPFROG---"ik$="" 
30 DIM AC10),E(10),SF(10) 

40 


CLStPRINT? PRINT TAE( (40-LENCA$))/2)3 AS 
"DO YOU WANT 


at lines 1830-1840 you will see a 
method of clearing part of the 
screen which results from 
directly translating a PET 
BASIC routine into BBC 
BASIC. If you analyse what is 
going on you should be able to 
see that all the routine does is to 
print a number of blanks at a 
particular position. This can be 
carried out more easily in BBC 
BASIC by PRINT TAB(X,Y); 
SPC(N);. 


If you look at lines 
1770-1790 you will find a 
routine clearing part of the 
screen, starting at the top, that 
uses just this method. The 
routine was originally a direct 
conversion from PET BASIC 
just like lines 1830-1840 but the 
neater BBC BASIC was 
substituted after the entire 
program was debugged and 
working. 

How far you take a 
conversion is up to you. If the 
converted routine carries out its 
task fast enough for you then I 
would advise leaving well 
alone! 









IF LEFTS(E%,1)="Y" THEN 90 

70 IF LEFT$(E%,1)="N" THEN 690 

80 FRINT "TRY AGAIN'$GOTO 40 

90 PRINT?FRINT "YOU CAN HAVE 3, 5, 7 
OR 9? NTS IN" 

100 PRINT ACH GAME, WE WILL 
DEMONSTRATE WITH 7" 

110°) FRINT "AND THEN YOU CAN C 

120 GOSUB 1850:CLS 























150 FOR C#1 TO 7 
160 FOR C#1i To ¢ 
REMKX = LE 
170 AC4): (4 
180 FOR ¢ TO 
REMXx 
190 GOSUE 1800 
200 VDU 303FPRINTS PRINT 


1740 





: 0 
YDU 30 















290 $ 
BLOCKS" SPR 

300 S$=76 

310 FOR C#1i TO & 

320 FieSr(c) 

330 GOSUE 

340 NEXT 

350 GOSUE 1850 

360 GOSUI 3 

370 






380 PRINT "THE 










RIGHT HAND PO 


THERE ARE 7 
PRINTSPRINT " — TH 


FRINT SPRINT 





VDU 303FRINTIFRINT 
“RK BLOCKS 


HOW TO PLAY 


Once you've typed in the 
program it actually 
demonstrates a game being 
played. When it is your turn to 
play, you are asked to choose 
whether you want 3,5,7 or 9 
spots displayed. The game is, of 
course, easier the fewer of the 
spots you try to handle. To 
make a move, you type in the 
number of the piece you wish to 
move and press the Return key. 
Then, simply type in the 
number of the space you wish to 
move it to. 

The computer actually 
prompts you with appropriate 
questions and is quick to tel 
you if you try to make an illegal 
move. The computer will 
congratulate you if you succeed 
in swapping the pieces but i 
you fail you can get stuck so 
that no move is possible. If you 
wish to quit at any point, all you 
need do is type At the end 
of each game you given the 












QoQ’ 





are 


chance to study the moves you 
made and are asked if you want 
to play again 




















1) $NEXT 
* BCC NEXT? 
AND POINTS 
)#0tREM*KXMIDDL 
7tACC)=ZIBCC 





NT 
NEXT? 












‘FIRST OF ALL 





SPOTS, 






7 FOINTS 


+REMM*NUMBERS POINTS 








:GOSUB 1830:GOSUE 1800 
“THERE ARE 3 ‘Li! 


EP Lhe Chee 






INT "ON THE 








:GOSUE 1800 


“THERE 






ARE 3 






on" 
RIGHT. L 






IKE THIS?" 
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FOR C=5 TO 7 
F (C) 
GOSUE 1670 
NEXT. 
GOSUB 1850:GOSUB 1830:GOSUE i800 
VOU 3O03PRINT?FRINT “YOUR TASK IS 
TO MOVE THE ‘L’ BLOCKS TO" 
PRINT "WHERE THE ‘’R’ BLOCKS ARE 
AND VICE VERSA" 
PRINT “SO THAT THEY END UF LIKE THIS?—-" 
GOSUEB 1850:GOSUB 1830 
S=82 
FOR C=1 TO 3 
P1=SP(C) 
GOSUB 1670 
NEXT C 
S=76 
FOR C=5 TO 7 
P1=SP(C) 
GOSUEB 1670 
NEXT C 
GOSUB 1850:GOSUE 1830 
CLStPRINTSPRINT "THERE ARE THREE RULES!-" 
PRINT?PRINT "1, LEFT BLOCKS CAN 
MOVE ONLY" 
PRINT SFC(3)$"TO THE RIGHT AND 
RIGHT BLOCKS" 
PRINT SPC(3);"CAN MOVE ONLY TO THE LEFT" 
PRINT "2. A BLOCK CAN BE MOVED TO 
AN" 
PRINT SPC(3);"ADJOINING SFOT IF 
LT 3S) ) EXPiwe 
PRINT "3. A BLOCK CAN JUMP OVER AN" 
PRINT SPC(3);"ADJOINING BLOCK AS 
IN CHECKERS" 
GOSUB 1850:GOSUB 1830 
CLS{PRINT?INPUT “HOW MANY SPOTS 
DO YOU WANT (3,5+7+9)",Z 
SF1=33048!REME*SCREEN POSITION 1 
REMxx SET UP Z POINTS 
ZL=(Z=-1)/23 Z+1)/23ZR=(Z+3)/2 
FOR C=1 TO Z$SP(C)=SP1+4KC-2xZ+173 
NEXT C 
FOR C=1 TO ZLiACC)=1°6(C)=23NEXT 
CIREMX*XLEFT HAND POINTS 
ACZM) 3 REM*XMIDDLE POINTS 
FOR 3 EMExXRIGHT HAND POINTS 
ACC)=Z23B(C)=1 
NEXT C 
StPRINT 
$=76 
FOR C=1 TO ZL 
P1l=SP(C) 
GOSUB 1670 
GOSUB 1740 
NEXT C 
S=46 
P1=SP(ZM) 
GOSUE 1470 
GOSUE 1740 
S=82 
FOR C=ZR TO Z 
P1i=SP(C) 
GOSUE 1670 
GOSUB 1740 
NEXT C 
GOSUB 1800 
vbU 3 RINT?PRINT “IF AT ANY 
TIME YOU WISH TO STOP PRESS 99" 
GOSUE 1850:GOSUB 1830 
GOSUB 1800 
VDU 303FRINT?PRINT “CHOOSE THE 
Rk OF THE BLOCK THAT YOU" 

"WISH TO MOVE ",CS? 
REMXXCURRENT SPOT 
IF CS>Z OR CS<0 THEN PRINT"NO 
SUCH SFOT "GOTO 1000 
IF CS=99 THEN 1600$REMXXEND 
IF A(CS)=0 THEN 1360:REMxxXSPOT EMPTY 
GOSUB 1800 
VDU 30:PRINT$PRINT "CHOOSE THE 
NUMBER OF THE SPOT TO" 
INPUT "WHICH YOU WISH TO MOVE ", NS? 
REMXXNEW SPOT. MOVE ?1 
IF NS>Z OR NS<O THEN PRINT "NO 
SUCH SPOT"?GOTO 1060 
IF NS=99 THEN 1600!REMXXEND 
IF ABS(CS-NS)>2Z THEN 1390% 
REMXXMORE THAN TWO APART 
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IF A(NS)<>0 THEN 1420{REMKxSFOT NOT EMPTY 
IF A(CS)=2 THEN 1250:REMKxXRIGHT TO LEFT 
IF A(CS)=1 THEN 1140%REM«KxXLEFT TO RIGHT 
REMXXMOVE LEFT TO RIGHT 

IF NS<=CS THEN 14503REMKxXWRONG WAY 
RS=R$+"L" 

S=46tP1=SF (CS) 

GOSUE 1670 

S=763P1=SP(NS) 

GOSUE 1470 

A(CS)=02ACNS)=1 

PRINT TAB(Z,24)$"NOW NEXT MOVE" 
GOSUE 1800 

GOTO 1480:REMKXCHECKS IF COMPLETE 
GOSUE 1670 

IF N S THEN 1450!REMKXWRONG WAY 
RS=R$4+"R" 

S=463P1=SP(CS) 

GOSUE 1670 

S=82$P1=SP(NS) 

GOSUB 1670 

A(CS)=0SA(NS)=2 

PRINT TAB(2,24)3"NOW NEXT MOVE" 
GOSUE 1800 

GOTO 14803REMKXCHECKS IF COMPLETE 
REMXXSFOT EMPTY 

PRINT "THERE IS NO BLOCK ON THIS SFOT" 
GOSUE 18503GOSUB 1830:GOSUE 1770: 
GOTO 1000 

REMXXMORE THAN 2 SFOTS AFART 
PRINT "THE SPOTS ARE TOO FAR AF ART" 
GOSUB 1850:GOSUB 1830:GOSUE 1770: 
GOTO 1000 

REMXXSFOT NOT EMPTY 

PRINT "THIS SFOT IS NOT EMPTY. TRY AGAIN" 
GOSUB 1850:GOSUE 1830:GOSUB 17703 
GOTO 1000 

REMXXWRONG DIRECTION 

PRINT TAE(0,3)$"YOU CANNOT MOVE 
IN THAT DIRECTION, TRY AGAIN" 
GOSUB 1850:GOSUE 1830:GOSUB 1770: 
GOTO 1000 

REM*XCHECKS IF COMPLETE 

GOSUE 1770 

FLAG=0 

FOR C=1 TO Z 

IF ACC (C) THEN FLAG=1 

NEXT © 

IF FLAG=1 THEN C=7{GOTO 990 
REMX*XCOMPLETED 

GOSUB 1800 

PRINT TAB(O,24)$"CONGRATULATIONS" 
PRINT "YOU HAVE SUCCEEDED" 

GOTO 1600 

INPUT "DO YOU WISH TO SEE YOUR 
SOLUTION ",Z¢ 

IF LEFT$(Z$,1)="Y" THEN 1630 

IF LEFT$(Z$,1)="N" THEN 1640 
PRINT "YOUR MOVES= "$R& 
INFUT"ANOTHER GAME Y/N",Z$ 

IF LEFT$(Z$,1)="Y" THEN RUN 

END 

REMXXMAKES SFOTS 

FOR Ci=0 TO 200 STEP 40 

FOR C2=F1 TO Pi+i 

PROCXY(C1+C2,S) 

NEXT C2 

NEXT C1 

RETURN 

REMXXNUMBERS POINTS 

PROCXY (C1+C2+78,C+48) 

RETURN 

REMKXCLEARS TOP OF SCREEN, LARGE 
PRINT TAE(O,0)$SPC(240)$ 

RETURN 

REMXXCLEARS TOP OF SCREEN, SMALL 
PRINT TAB(0,0)3SPC(160) 

RETURN 

REMXXCLEARS BOTTOM OF SCREEN 

FOR C=33688 TO 33708:PROCXY(C,32)? 
NEXTC! RETURN 

PRINT TAB(S,25)$"PRESS ANY KEY"3 
Z$=GETS 

RETURN 

DEFFROCXY(A,C) 

Y=INT( (A~32768)/40) 
X=A~-32768-40xY 

PRINT TAB(X,Y) ;CHRS(C) 

ENDFROC 
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Based on an idea by Mark Michalowski and G Lowry 





Ithough a short program 
to type in, this game of 
skill is addictive — you 


have been warned! 

The computer draws a 
colourful (yellow on a red 
background) maze which 
changes constantly throughout 
the game — as you head for a 
gap you can suddenly find your 
way blocked although 
equally, if you've the patience 
to wait, your path should 
eventually clear. 

The time you spend in the 
maze is displayed throughout 
the game and when you've 
completed the course, the 
computer will confirm the time 
taken and tell you how many 
moves you made. 


TECHNICAL DETAILS 


The VDU's foreground colour 
has been set to yellow in line 40 
and the background colour to 
red in line 50. Although there is 
no difficulty in playing the 
game as it stands on a black 
and white monitor or TV set, 
you may prefer to delete these 
lines to obtain a crisp white on 
black effect. 

The standard methods of 
dealing with PET graphics and 








I's a race against the 
clock to get through 
the moving maze! 


HOW TO PLAY 


The object of the game is to 
move the asterisk, using the 
cursor control arrows at the top 
left of the keyboard, from the 
bottom left- corner of the 
screen to the ‘$ 
hand corner. T} are six 
levels of diffic 


















(these levels e the 
density of the m : level one 
is fairly easy, level three is 
pretty difficult and level six is 


virtually imposs 


SCOPE FOR 

IMPROVEMENT 
Try altering the 
printed out ac 
long the player 







PEEK/POKE are used, ie 
PROCXY and FNS (for more 
details on these methods see the _ the course. Th 


notes on Surround). The only 
special character created is 244 
which is a stippled square. 


would give co 
a quick comp 
if a longer tim 


PROGRAM STRUCTURE 


Statement 


Lines 10-50 Selects graphics 

CHR$(224) as a 

sets foreground 

colours. *FX 4, 

keys to be used 
Instructions |Choice of skill level for play 
game. 
Creates initial o} 
Displays time at 
screen. 
Selects appropriat 
routines acco’ 
key is pressed. 
Lines 240-270|Move Logic |Checks to see if asterisk has arrived 
at the target ($), bumped into the 
maze wall or moved off the screen. 
Prints congratulations and score. 
Resets to normal mode (MODE 7) 
and restores arrow keys to usual 
function. 
Lines 370-510] Change Maze/Removes existing blockages and 
creates new ones to give a dynamic 
obstacle course. 





Lines 60-90 


Lines 100-120 ]Print Maze 
Lines 130-160} Print Time 


Lines 1'70-230]Get Key 





Lines 280-360|End Game 
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Left: The maze generated by the 
program is a constantly moving one. 
The asterisk is your current position, the 
dollar symbol (top left-hand corner) is 
the position you must reach. Your 
piogress is timed, the elapsed time is 
continuously displayed at the bottom 
of the screen. 


Right: You've made it! Nota 
particularly rapid escape though, It 
took over 500 seconds and 334 moves. 


VDU 23,224,8A a ’ +8AA,855,8AA, 855 260 E+A)>33767 OR (BA) é 
KEX 4,1 , XY(G)IPRINT TABRCX,Y)$" 
MODE 4 *ATPROCXY(B) SPRINT TAE(X+Y)5 
VDU 19,1,3,0,0,0 COTO 360 
VDU 19,0,1,0,0,0 28 PRINT TAB 
CLOtPRINT2PRINT"WHICH L L T TAF s27 z C 
(6 HARDEST)"5 3 INPUT U "RINT TAB(15, 27 SEC "3F3" MOVES" 
IF U<1 OR U>S THEN 60 INFUT "ANOTHER GAME", At 
IF INT(U)<U THEN 60 IF LEFT#(AG,1)="Y" THEN GOTO 60 
LS KFX 4,0 
FOR I=1 TO (U«100) PRINT } MODE 

ND(40)-1,RND(25)-195 433 3° END 

6Bt 67 3 RETURN 

JCXY (AY SPRINT TABCX,Y+1 : 7 RE 

ROCXY(B)! PRINT TAB(X,Y)3' aE X=RND(40)—12Y=RND(25)~14 
TIME=0 D=?(FNS(X,Y,3)) 
GOSUE 160 IF D<>0 AND D<>85 THEN 420 
GOTO 140 PRINT TAE(X,Y)$" "3 
PRINT TAB(10,27);TIME/1003" x D(40)-12Y=RND p)=1 
GOSUE 370 
AS=INKEY$(O0)3IF AS="" THEN 160 0 AND D&>85 THEN 440 
IF ASC(A$)=&8A THEN A=403GOTO 240 1S PRINT TAE(CX,Y? }CHRS$( 224); 
IF ASC(AS 288 THEN A=~-1:3GOTO 240 RETURN 
IF ASC(A$)=&89 THEN A=1:GOTO 240 DEFFROCXY (M) 
IF ASC(A$)=&BB THEN A=-403GOTO 240 4 Y=INTC(M 2768)/40) 
GOTO 340 4 X=M-32768-40xY 
FROCXY (A+B) $D=?FNS(X,Y,0)3IF D=12 d ENDFROC 
THEN 280 510 DEF FNS(X,Y,N)=HIMEM+(Y*40 4X) XB+N 
IF De>0 THEN 360 
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BBC MICRO 
GAMES 


THREE SUPERB GAMES 
CASSETTES AVAILABLE NOW 
FOR THE BBC MICRO (MODELS A AND B) 


CASSETTE ONE:- Two games demonstrating the fantastic 
capabilits in sound and graphics of the BBC Micro 
(1) STAR TREK — The classic computer game. Try your 
hand at commanding the Star Ship Enterprise. 
(2) CANDY FLOSS — A tremendous new game in which 
you test your business skills running a candy floss stall on 
Blackpool's Golden Mile, but watch the weather and the 
donkeys! 


— ONLY £5.95 inc 
CASSETTE TWO:- An exciting collection of games with 


music and graphics to keep the family amused for hours:- 
HANGMAN, KRYPTOGRAM, DICE, BEETLE, 
GRAND NATIONAL AND MUSIC 


— ONLY £3.95 inc 
CASSETTE THREE:- For the arcade fanatics:- 


MUTANT INVASION — a brilliant new “SPACE INVADERS” 


type game. WARNING!!! very addictive. 
— ONLY £5.95 inc 


Deduct £1 for 2 Cassettes & £2 for 3 Cassettes 
send cheque/P.O. to 


Sinclair, Dept C.T. 
55 Fitzroy Road, Bispham, Blackpool, Lancs. 


JOI 





BBC SOFTWARE 


WORDWISE — THE WORD PROCESSOR for the 
BBC Micro — A professionally written program 
supplied in ROM, containing all the usual word 
processor facilities plus several unusual ones like a 
fully automatic word, count. Extremely fast and very 
simple to use, a powerful piece of software. Supplied 
with a full manual for £65 + £1.50 p&p + VAT. 


SNAKE — This highly addictive game for the model 
B makes full use of the amazing graphics and sound 
facilities of the BBC Micro, it will give hours of fun. 
Supplied on a quality cassette for £5.80 + VAT. 


RAM KITS. Upgrade the model A to 32K RAM — 
supplied with full instructions for £29.90 + VAT. 


CASH or royalties waiting for any interesting 
software for the BBC machine. The better the 
program the more we will pay. 


Send an SAE at least 6” by 9” for latest details of our 
software and to get your name on our mailing list. 
Please add VAT to all prices. Mail order only. 


OMPUTER ove: crs 


16 Wayside 
Chipperfield 
Herts WD4 9JJ 
Tel. (09277) 62955 


ONCEPTS 





Would you like to discover more about your 
BBC Micro from other users? Why not join a 


are all user groups 


THE CLUB aevcSing hemseives to the B86 Micro. 





Computer Users Club 
72 Sidmouth Road, 
Welling, 

Kent DA16 1DS 

Tel: 01-304 3910 
Secretary: Tony Latham 


The club produces a monthly printout of software 
ideas for the BBC Micro, programs and advice on 
programming technique. 


BEEBUG 


The National Independent User Group For The BBC 
Micro 

35 St Julians Road, 

St Albans, 

Herts 

Contact: D E Graham or Sheridan Williams 


BEEBUG runs a regular newsletter (10 issues a 
year) including program listings, hardware and 
software tips, reviews and advice, all exclusively 
devoted to the BBC Micro. Membership is available 
for £4.50 for six months or £8.50 for the full year’s 
subscription. 


LASERBUG 

The London And South-East Region BBC 
Microcomputer User Group 

4 Station Bridge, 

Woodgrange Road, 

Forest Gate, 

London E7 ONF 

Contact: Trevor Sharples 


The monthly newsletter, also called LASERBUG, 
contains reviews of books, hardware and software, 
as well as a number of programs to use on the BBC 
Micro. Membership is £12 and includes 12 month's 
subscription to the newsletter. 


Independent BBC Users’ Group 
Dept. 1A, 

44-46 Earls Court Road, 

London W8 6EJ 


This group has been in operation since October, 
1981, and is run by Jeremy Ruston and, Tim Hartnell 
who have written a book of programs for the BBC 
Micro published by the BBC. Priced at 85p, 
INTERFACE the Club's publications, covers news, 
reviews and programs for the BBC Micro. 
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fohateslod 


Investment Checker — Having saved some 

4 money, this will help you work out what 
your protits would amount to should you 
invest a regular amount over a 


period ot ee 
1.5K 


INVESTMENT PROGRAM 
ae ah aah ae ae at at at a He 


The result of regular m 
may be calculated by ty 


appropriate figures when prompted 
the computer 


Press any key to continue 


MONTHLY PAYMENT 730 
NUMBER OF YEARS PAYING IN 710 
CURRENT RATE OF INTEREST 711.5 
EREAARAAEEAEAEE EASA KE REARS RE ERASE ET 
ANNUAL SAVINGS DEPOSITED 
TOTAL INVESTED OVER 10 YEAR: 
INTEREST ACCRUED 
BANK BALANCE AFTER 10 YEARS = 


Another calculation ? ¢Yes“No> 


Home Finance — Use this program to keep track of your finances. 
The computer will he ou to budget by doing the sums and 
presenting you with the up to date information you need 

to keep within your g limits. The program will 

handle up to 20 acc 








eat 


Meter Minder - — This package provides you with a series of projections based on your 
meter readings... gas and electricity. Fuel consumptions in cost per week, month or 
quarter. Plan how to SAVE IT. 

2.5K 





Converted from a program by J Consadine 





Insuring you get the 
most from your mone\ 
can be tricky these 
days! 





r Monthly savings 
’ ing im tt 
prompted by 





any key to continue 
MONTHLY PAYMENT ?30 


NUMBER 





YEARS PAYING IN 220 





CURRENT RATE OF INTE 





T ?10 


38 KOKO OKO OKO OK OOK OOK OOK OOO 
600 
12000 
4083.24 


36083424 





PROGRAM STRUCTURE 


Statement 


Lines 10-20 |Set Up Defines array and clears screen. 
Lines 30-120 |Instructions | Prints title and instructions. 
Lines 130-160 | Input Requests input. 


line. 


Hl Lines 210-350 | Calculate & | Calculates and prints annual 
! Print Results| savings, calculates annual bank 





and prints total invested, interest 
accrued and final bank balance. 
Asks if another calculation is 
required. If so, requests input, 
otherwise ends. 





Lines 360-380 | End 





Lines 170-200 | Preparation | Sets array to zero and prints header 


balance (lines 250-270), calculates 





hose of you lucky, or 

careful enough, to have 

any money left over when 
you've settled all your bills have 
a problem this program can 
help you with: the problem of 
deciding where you will get the 
best return for your money. 

Is your best option to 
increase the payments on your 
Life Assurance policy so that 
when it matures you will receive 
extra bonus payments? Or is it 
best to save with a Savings Bank 
or Building Society? Making 
comparisons can be difficult if 
the insurance companies only 
give figures for the maturity 
value over twenty years. 

This program presents the 
results of investing a regular 
sum at a known interest rate 












over any number of years. It 
thus projects the effect of saving 
any sum over a long period 


(without the tedious calculations 
for compound interest) and so 
enables comparisons to be 
made. 


HOW TO USE THE 
PROGRAM 


The program asks you to 
provide the computer with three 
figures: the amount of the 
monthly payment; the number 
of years you wish to project 
your savings over; and the 
current rate of interest. 

It then displays the annual 
investment you deposit, the total 
you will have invested over the 
period specified, the interest 
accrued and the eventual bank 
balance. Note that the program 
will only work for complete 
years (you cannot ask it to 
calculate on the basis of, say, 
two and a half years). 
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INVESTMENT PROGRAM 
4-68 8 AE aE A a a a 


The result of regular monthly 
may be calculated by typing in the 


»appropriate figures when prompted by 
the computer 


Press any key to continue 


MONTHLY PAYMENT 730 

NUMBER OF YEARS PAYING IN ° 

CURRENT RATE OF INTEREST 711.5 
FHAAKEAAAAEE AEA AKE EER ARASH EREAEAERERES 

ANNUAL SAVINGS DEPOSITED 

TOTAL INVESTED OVER 10 YEARS 

INTEREST ACCRUED 

BANK BALANCE AFTER 10 YEARS 


Another calculation ? ¢Yes/“No> 









DIM &(100) PRINT 
Zl, (GES 200 FOR N=0 TO Y!B(N)=03NEXT?REMEXZERO ARRAY 
30 PRINT 210 12*P 







































































































40 PRINT" 220 INT" ANNUAL SAVINGS DEFOSITED "3 
50 PRINT" TA Pitter} 
60 PRINT 230 A=S/ZiREMXMAVERAGE ANNUAL SAVINGS 
70 PRINT" The result of regular 240 REM*xXCALCULATE ANNUAL BANK BALANCE 
monthly savings" 250 FOR TO Y 
80 PRINT" may be caleulsted by 260  B(N)=S+(AKR/100)+8(N~1)4(B(N=1)*R/100) 
typing in the" 270 NEXT NiT=SxY 
90 PRINT" appropriate figures when 280 PRINT" TOTAL INVESTED OVER "3Y} 
prompted by" " YEARS" $TAB(30)3"=°"$T 
100 PRINT" the computer." 290 PRINT" INTEREST ACCRUED" 
110 FRINTIPRINT:PRINT" Press any key 300 TA=CINT(CBCY)-T)x100))/100 
to continue" 310 PRINT TAB(30)3;"=*"37A 
120 AS=GCETS 320 PRINT" BANK BALANCE AFTER "sY}" YEARS" 
1s0ie CLS 330 BCY)=CINT(BC(Y)*100))/100 
140 PRINTSINFUT" MONTHLY PAYMENT wP 340 FRINT TAB(30)3 "SBCY) 
150 FRINT!INFUT" NUMBER OF YEARS 35 PRINT 
PAYING IN ",Y 360 INPUT" Another calculation ? 
160 FPRINT!INFUT" CURRENT RATE OF (Yes/No) ",As 
INT 3T "SR 370 IF LEFTS(A$,1)="Y" THEN 130 
170 PRINT 380 END 











PRINT STRING$(40,"%*") 3 
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Converted from a program by Elaine Douse. 


Use this program to 
keep track of your 
finances. 


his program will help you 
to gain control of your 
spending. It helps you to 


doing the sums and 
ou with the up to 













presenun 































date info you need to 
E aoe “ keep within r spending 
*i a limits. 
The pr ndles up to 
20 account three of 
whic 1 for 
spec nely the 
mon (which is 
the amou y left to 
spend ac your 
balance 
s leaves 17 
s. You can 
1 as you 
egories 
d what 
amount o ink is 
reasonak nd on each 
every mo r example, you 
might all an allowance of 





£20 a me a gas account. 
Then ey onth, when you 
pay y ary in, the 

budge 1ount is added to 
your « ount and when you 
settle s bill, the amount 


you deducted from the 


ac 


HOW TO USE THE 
PROGRAM 


rst time you use the 

am, answer ‘YES’ to the 
question ‘is this a new 
program’ and type in the 
budget names and amounts 
Then save the file on tape with 
the correct date. 

The second and subsequent 
times you use the program, 
answer ‘NO’ to the first question 
and load the file produced from 
the last run. Once a month you 
will have to input your salary; 
the rest of the time you must 
draw cheques from each of the 
accounts as you spend money 
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ES SB‘BuGSSE"SSauasEST® Stowe ur 


the eande nn same, MONTHLY PAYMENT 735 
are reserved are named - NUMBER OF YEARS PAYING IH 716 


= your po rd cad Ewen i ie total 2 < 
EHTS Be = four fonthiy © ] CURRENT RATE OF INTEREST 718.25 


Your wen ngs oe eseceseseseesseeseseseceesesess 


How many files do you require 75 S DEPOSITED 
VER 16 YEAR 


3 h fil oO 
fells awed by REriRn th, th on the si fsoun ce” PER 1@ YEARS 


ion ? (Yes/No) 


Press any key to continue 





on the budget item. If you 
become overdrawn on any 
account then you can‘use option 
10 to transfer money into it 
As you use the program 

other categories of things which 
you spend mone y on might 
occur to you. If thi 9 
then use option se 
new budgets from unused ones. 
If you find an account is 

scoming regularly ove 
option 
allow 
Every time you draw a 
cheque on an account, the 
amount is subtracted m the 
account, your current bank 
balance and the monthly 
running total. By looking at the 
monthly ru ig total you can 
see how much of this month's 
salary is unspent 

If you decide to save some 

money, the sum is added to the 
savings account and subtracted 
from your bank balance and 
monthly running tot al. To draw 
on your 








{ODE 4, defines characters 
graphs and sets up 
s and arrays 
tle. Asks user whether 
is new (ie being used for a 


idget). 














lrawn 


even to 















otions for use of 
nps to appropr 
input routine 





ise 


san also 













amount of salary to-k 
ind updates bank balance 
vings 










nes 





> deduct money from 
and from bank balance 














Lines 740-880 


= number ol its account 












,ines 890- 106 





> budget allowed for each 
















graph of salary input each 
















Lines graph of savings eacl 






















f can 
sines 17790-2020 iser to re-name accounts ir total 
ange amounts budgeted us bank 





account) using on six. After 
completing all your 
transactions, save the data on 
tape using option nine 


2030-2290 





Lines 1 of files to accounts 








sines 2300-2600 cassette tape. User 


and number of last 










Lines 261 for ‘Y' and ‘N’ 










Lines 2640-2920 





-load data 
on tape 
fer money 










Lines 2930-3080 |T: 












Routine to pr and amounts 
in each acco 


Converts PET 


Lines 3090-3130 

















Lines 3140-3180 


character C. 
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HOME FINANCE 



























































30 
40 
50 
60 
70 


80 


90 
100 
110 
120 


130 
140 
150 
160 


170 


490) 
500 
S10 
520 
S30 
540. 


S50 
540 
870 
580 
590 
600 
610 
620 


630 
440 


650 
660 


670 


680 
$90 
700 
710 














MODE 4 
VDUZ3,224,8FF,&8FF,&FF,&FF,8FF,&PF,aF Fy arr 
VDUZ3,225,&AA, 855, &AA, 855, &AA, at RAA, 85S 
NisO03N2=02NG=03CH=0 

DIM E#(20),6¢20),T(20),M1012),S1¢ 12) 

CLS 

PRINTIPRINT TAE(7)3 "BANK ACCOUNT 

HOME FINANCE 
PRINTIFRINTSPRINT "Is this a new 
program (Ye No)" 
GOSUB 300tIF R& = 
GOSUE 2640 
StPRINTIERINT TABCL7) $"M EON UM SPRINT 
SINT TA 7"1. SALARY INPUT, 

IDGET UFDATE 

PRINT TABC4)3"2, CHEQUE CLEARING " 

PRINT TARC4)3"3, DISFLAY ACCOUNTS " 

PRINT TARC4)2"4, DISPLAY BUDGETS " 

PRINT TABC4)2"S, GRAPHIC DIGFLAY 

OF SALARY " 

PRINT TAR C4) 3"S, GRAPHIC DISELAY 

OF CAPITAL " 

PRINT TARC4)3"7. ALTER BUDGET 

TITLE AND ALLOWANCE 

PRINT TARC4)¢"O, INTTIAL SET@ur " 

PRINT TARGA “9, UPDATE -TAPESFICE 
PRINT TAECS)3"10, INTER ACCOUNT TRANSFER" 
PRINT 




















THEN 2030 








































INFUT "“Flease Lupe category reauined "yh 
TR INTC) THEN 110 

TP Ret OR Ped THEN Lt 

Chg 

OM F COTO B20,490,740,890, 1070, 

AAG L790, 2030, 2300, 2990 

GOTO 110 

PRINT LEER RY egy ny bey bo @arhinuwe! 
ReaGe Ts 

KE TUF 

PROTNT SPRINT "DATA MICA Ett 

DESTROYED tt con miyue" 

PROTA 

MINT "Are you happy for me to 
Prowes GOSUE B00 

If Rt THEN 110 

MICNS TCR IMTCAY 

PreLNT 

INPUT “What as this months take 

home pay plane ")TODItSi (Ne =ToL) 
REM OCP YOU MAYE ANY MONTHLY STAND TNC 
REM ORDERS INSERT TCL = TCL) amount 
REM of sthonehine order here 

TOS eT CQdaeT OL) 

PECMTIPRINT "Attar otancding Orders your! 
PINT "bo lunee da "ytd 

PRINT oun current tie re "$ 
MREMT Teg) 

PRINT "Your tuck balinee etanits at 
"SERDNT TC) 

GOSUE 2eG 

MO VSd VO ROME eT LT ENERTS 
Gora Lie 

CLS TPRINT 





FOR Tet TO 20:GOSUE 3090 FRINTINEXT 
TNFUT "Whieh file do you require", R 
TF Ret OR R20 THEN S10 

Che CH4 1 

PRINT "Cheque Now "FCHI"s please 
type ain amar 
INFUT Feil 
TEZQI=TCZRLIT LIT CL RI 

IF Reo8 THEN 600 

TCBI=ET( SVR 

GOTO 610 

TORE TCR) oR 

T¢2)°0 THEN 630 

INT "WARNING EANK BALANCE TS "3 
W293". IN THE RED" 

TF TC1)>0 THEN 650 

PRINT "WARNING MONTHLY BALANCE IS o"y 
Tdd)$" IN DEBT" 
TF TéK)=0 THEN 6 
PRINT “YOUR "SE ROS" ACCOUNT 

STANDS AT "STCRISGOTO 680 

PRINT "WARNING '! "SESCR OS" 

ACCOUNT TS "FTCRIS" IN THE RED" 

PRINT “Have you more for this account?" 
GOSUE 300 

IF R¢="Y" THEN 530 

FRINT "Have you 
ta clear "$GOSU 












70 











my more cheques 


300 








800 
810 


820 


840 
850 
840 
870 
880 
890 
en 
P10 
0 
930 
940 
950 
PG) 
970 
980 
990 
1000 





1010 
1020 
1030 
1040 

oso 
1060 
1070 
1080 
1090 

100 
1110 
1120 
1130 
1140 
1150 
L160 
L170 
1180 
1190 
1200 





1270 












































IF Re 
GOTO 1 
PRINT 
INTC 
GOSUE 
PRINT 
NEXT 

GOSU 




















ANS 

Ag#="0, 
IF INT 
AG TAS+ 
TF INT 
AGRA 
oF OTSA 
RETURN 
Aga"o" 


RETURN 
PRINT 
FOR 1 

As AH E ( 


AdaS TR 
GOSUE: 
PRINT 

NEXT 

PRINT $ 
REM TF 
REM ORI 
amour 
Te INT ¢ 
Abe ST 





PRINT 
GOSUE 
GOTO t 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
1 
PRINT 
An § 
P29349 
FOR I 
Bed 
ene) 
FOR J= 
( 
N 
Y 
B=t~40 
NEXT J 
NEXT I 
GOTO i 
PROCXY 
GOTO 4 
PRINT 
GOSUE 
GOTO 41 
PRINTS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 











"Y" THEN 4990 
10 


FOR T=1 TO 20:60) 3090 









TCL) X1009/1003AS=STRE(T)¢ 
790 

TAB (38-LEN(AS)) FAS 
290:GOTO 110 


0 THEN 810 


00" 3KRETURN 

(T)<>T THEN 830 

", 00" RETURN 
(TK10)<2T*10 THEN 850 
nge 

THEN 870 


+RIGHTS (AG ,LENCAS)—1) 


ABD 

1 TO 20 

r) 

090 

ABS CECT) )*100)/100 





CT) 

790 

TAB C3B~LEN (CAS) ) FAS 

PRINT "Your budget per month is"} 
YOU HAVE ANY MONTHY DING 
DERS INSERT AsAtstanding order 
here 

AES CAI*100)/100 

$C) 

790 

TAB (38-LEN CAS) ) SAS 

290 

10 

TABCZ0 "SALARTES™ 





"900 1" 


"S00 
"700 


"600 


” i" 
"S00 





TAR(O);") F OM AM J J 
oO oN D" 
t 


1 TO 





500 TO S3¢L)STEF 
Lae) THEN 1360 
2 THEN 1390 











cr 4) 
410 
(P4E, 225) 
380 
TAB (1, 2803 
290 
10 
PRINT SAVINGS" 
"2000 1 
p 1 
"1500 1" 
" 1 
1 
1" 
"4000 1" 
1" 
1" 





70 
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1580 4 a bas 

1590 p* aie 

1600 wee ake 

1410 TAB(S) STRINGS Pao) 
1620 y JrFR AM JASON DY 
1630 

1640 TO 12 

2200 TO 20:B¢(T)="SPARE"$NEXT 
2210 MONTHLY TOTAL" 

2220 “BANK BALANCE " 

2230 “SAVINGS .. 





PRINT “FILE #"3TAE(10)3 
"$TABC20) ; "AMOUNT" $FRINT 
2260 FOR, I=4 TO R 
2270 PRINT TAB(Z,Y¥POS 
INPUT BS(I) 
INFUT B¢(I) 
NEXT 

GOTO 110 
PRINT! PRINT 
ALL YOUR ATA 









o" 


2326 PRINT 
2330 PRINT 
FOLLOWING 

PRINT “TODAY’S DATE IS "sN1:"_" 
GOSUB 261 

IF R¢="Y" THEN GOTO 2380 


TAPE" 
U MUST VERIFY THE 








FOR J=560 TO M4(I) STEF 100 
IF M4<I)<=J THEN 1720 

IF I=N2 THEN 1750 

1700 PROCXY<(P+8,224) 

1710 B=B-40 











: 
- 
i 
| 1730 NEXT I 
1740 GOTO 1770 
1750 FROCXY<P 
1760 GOTO 1710 
1770 PRINT TABCO,28);:GOSUE 290 
1790 PRINT 
1800 FOR I=1 TO 20 
1810 GOSUB 30890 
1830 NEXT 

1840 PRINT 

to change 





1720 NEXT J 
1780 GOTO 110 
1820 PRINT 
ich account do you wish 

1850 INPUT R 
1860 IF R<4 OR R>20 THEN 1790 
1870 IF INTCR R THEN 1790 
1880 Zt=68¢F F 
1390 INPUT is the new name ",B 
1900 INPUT “How much is its allowance 

BORD 
1910 PRINT “CHEC 
1920 PRINT “Ol 
1930 Ff 








is now "FEECR) 
RINT “¢ the allowan 








is now “ 
1940 PRINT “IS THIS CORRECT ?" 
1950 GOSUE 

1960 IF R€=" ' 
1970 BSCR) tf 


e800 
GOTO 17°0 














1980 PRINT bh to lose thi 

1990 PRINT unnd total?” 

2000 GOSUB 300 

2010 IF R=" THEN Ti R)=0 

2020 GOTO 

2030 CLs ha roaram 
you are ywe 

2040 PRINT "t t accounts © 

2050 PRINT 

2060 PRINT “the first Pile re! 

2070 PRINT * md sre nemec 

2080 PRINT 

2090 PRINT "Pile # month 
running tetel 

2100 PRINT "File # o benk bal 

2110 FRINT "File #3 uy vine - 

2120 PRINTIPRINT"How many files do yo 
require 

2130 INFUT R 

2140 IF R24 OR RO20 OR ROOINT(R? THEN 

21450 PRINTIPRINT “Fine, now type in the 
name ef esch file" 

2160 PRINT "followed by RETURN then the 
sllowance" 


2170 PRINT “per month" 
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TtTAB(10,VPOS) 3? 
PRINT “ "3TAE(20,VFOS-1)3% 


AM ABOUT TO RECORD 



































NT:COSUE 290 

GOSUE 2880 

F=F+1 

PRINT" THIS WILL BE FILE NO. "FI" 

PRINT "THE LAST CHEQUE WAS "3$CH 

Gosut 10 

TF R¢="Y" THEN 2450 

PRINT "A NEW BOOK 1" 

INPUT "WHAT WAS THE LAST CHEQUE NO.",CH 
ZE="BANK "ASTRO CP) 

FILE=OFENOUT¢ 
FOR 2 
Far 
FOR 
FoR 
FOR I=1 To 12 
PRINT #FILE,CH 
f 

i 

P 

fi 











HP ILE, BCT) SNEXT 
TO ZO3PRINT #FTLE,T¢1) $NEXT 
OFPRINT #F TLE, BCT) NEXT 
2tPRINT #F ILE ,MS(1) $NEXT 
PRINT #P ILE, S5¢T)¢NEXT 








RINT #F TCE Nt 
RINT #FILE,N2 
RINT #FILE,N3 
LOSEFFILE 


2 t 

IF Z=1 THEN 2460 

PRINT "I HAVE FINISHED EYE FOR NOW" 
END. 

PRINT "ANSWER Y OR N" 

GOSUB 300 

RETURN 


FRINT?PRINT “Please insert pant 
dato tape and" 

PRINT "and fully rewind" 

GOSUE 290 

TNPUT "Which file number do you 
require?" F 

Z$ ="BANK" + STRS(F) 
FILE=OPENINGZ$) 

PRINT Z$5" FOUND" 

FOR I=1 TO 202TNPUT #FTLE, ECT) 








NEXT I 

FOR T=1 TO 20¢2NPUT #P ILE, TOT) 
NEXT I 

FOR T=1 TO 2OtTNFUT 46 TLE, G(T) 
NEXT 1 

FOR I=1 TO 12¢INFUT #FTLE,M4¢T) 
NEXT 1 

FOR T=1 TO 1230NFUT 4FTLE,¢ 
NEXT I 


INPUT #FILE,CH 

INPUT 4PILE.NL 

INPUT #FILE,N2 

INPUT #FTLE,N3 

CLOSE #FILE 

PRINT "This file was record 
Nig" "3N23 1" 
PRINT "The 1 cheque was "30H 
PRINT "Please type in today’s date" 
INFUT "Day", NI 

INPUT "Month" Nz 

INPUT "Year",N3 

RETURN 

PRINT 

FOR T=1 TO 20 

GOSUE OPO PRINT 


doom "4 














NEXT 

PRINT "From whieh file are you 
Lransferrirs 

INPUT “mor i 

IF I<0 OR 0 OR T<>INTCL) THEN 





PRINT "Into which file are you 
transfernin 
CNPUT "money", A 

IF A=T OR Ac1 OR A>2O OR AcSINTCAD 
THEN 3000 

INPUT “And the amount please", R 

TOT) =TCLI-RITCAD=TOAN +R 

PRINT "Have you any more transfers?" 
SUE 2610 











OTO 110 

I=9 THEN 311 
INT TAE CS) 213 
PRINT TARC4) 203 
PRINT TAB(7)3 
RETURN 
DEFPROCXY<A,C) 
¥=INT((A-32768)/40) 
X=A-32768- 40*%Y 

PRINT TABCX,YSCHRS(C)$ 
ENDPROC 


0 
iGOTO 3120 


ECD} 














Ay 





Converted from a program by John Hiscott 


Lines 10-30 


Lines 40-60 
Lines 70-100 
Lines 110-160 | Gas 
Lines 170-240 | Electricity 
Lines 250-260 


Lines 270-330 


Quarterly 
Charge 
Readings 


Lines 340-360 | Electricity 


Consumption 





Lines 370-390 | Electricity 


Consumption 


Lines 400-480 | Headings 


Lines 490-640 


Calculations 





Lines 650-710 | Results 





Plan your energy 
consumption with your 
BBC Micro. 





Clears screen, defines print 
format and initialises variables. 
Displays title. 

Offers choice of projections for 
gas or electricity. 

Asks for details of gas cost and 
consumption. 

Asks for details of electricity 
costs. 

Asks for amount of standing 
charge per quarter. 

Choice of entering data for a 
single reading or a range of 
them, 
Asks for details of consumption of 
electricity if a single tariff 
applies. 

Asks for details of consumption of 
electricity if a two-part tariff 
applies. 

Prints headings for table to 
display results. 

Computes results for both gas 
and electricity. 

s results in table; lines 

-700 dealing with those results 
relating to a two-part tariff for 
electricity. 











ith the high cost of 
domestic energy there is 
always the worry about 


how much money to put aside 
for the next fuel bill. But, never 
fear, this program will give you 
an estimate to budget on. 

The computer will provide 
you with projections based on 
your meter readings. It will tell 
you how much your fuel 
consumption is costing per 
week, per month and per 
quarter — so you can plan 
either to save money or to save 
energy in order to be able to 
foot the dreaded quarterly bill. 


HOW TO USE THE 
PROGRAM 


You will need to collect some 
information before you can get 
this program to make any 
projections for you. All the 
details you need about costs will 
be available from your last fuel 
bills and you can consult your 
meter to discover your current 
(!) consumption. The program 
requires your consumption in 
units over a known number of 
days and will either print a 
single projection for 
weekly/monthly/quarterly costs 
or will print a table of how 
much you will pay weekly/ 
monthly/quarterly for a range of 
consumptions over the known 
period. For example, if you've 
used 100 units in two days then 
you can either discover how 
much this will cost you per 
week/ month/quarter or you can 
ask for a table starting at 50 
units per two days going up to 
150 units per two days in steps 
of ten. 

This table can also be used 
to discover how much your final 
bill can be altered by reducing 
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india 


your consumption. You can 
then make statements to the rest 
of your family like — ‘If you 
save 10 units a day we will be 
XX pounds better off at the end 
of a quarter!’. 


Gas or Electricty - enter 


Enter ‘1' for standing domestic tarriff 





f you want to estimate a Enter '2' for two-part tarif#7?i 

two-part tariff electricity bill Enter unit charge ¢€ in pence> 71.1 

then you can only ask for a Enter quarterly charge (N.B. IN PENCE> 

single estimate because a table 450 

would be of no use in deciding Are calculations required for a single 

the effects of transferring reading or a range of readings enter S 
= consumption from day to night or R?S 

rate. If you want to do this you Enter consumption for period 7450 

will have to run the program Enter number of days covered by reading 
1s with different values of day and 

night consumption. \ 








30.0 DAYS PROJECTED PROJECTED PROJECTED 
UNITS WEEKLY MONTHLY QUARTERLY 
a = COST Cost COST 
READING ¢POUNDS > 454818). | B=) ¢POUNDS > 





¥ 
$ 





IF E=2 THEN GOTO 370 

INPUT "Enter consumption for 
perio "HY 

C$=' 30TO 390 

INPUT “Enter day-rate consumption 
for period ",U 

INPUT "Enter night=rate 
consumption for period 

INFUT “Enter number of 

covered by reading "yf 

PRINT STRING$(40,"=") 

PRINT TAB(0,VFOS)$D3" DAYS"} 
PRINT TAB(10) "PROJECTED PROJECTED 


INPUT "Gas or 
G or E", A$ 
AS=LEFTS(A$,1) 
IF A$="E" THEN 
IF AS<>"G" THEN 
PRINT $3 PRINT PROJECTED" 

INPUT "Enter fi therm IF A$="G" THEN PRINT "CU FT"? 
(im pence) ",A IF AS="E" THEN PRINT "UNITS" 
INPUT "Enter MONTHLY 


charged at abc 
INPUT "Eni 
therm Cin pen 
INPUT "Enter 
per Cu, Ft.) 
GOTO 250 
PRINT? PRINT 
PRINT "Ente 
domestic ta 
INPUT “Enter 
tariff",E 

IF E=2 GOTO 230 
INPUT "Enter unit 

GOTO 250 

INPUT "Enter unit 

rate (in pence) 

INFUT "Enter wnit 

rate (in pence) 

INFUT "Enter quarte 

(N.B. IN PENCE 

IF E=2 GOTO 370 

PRINT "Are calculatio 

for a single" 

INPUT "reading or 

readin ente 

IF c¢ " THEN 

PRINT? INPUT "En 

of range",J 

PRINT? INPUT "Enter highest 
reading of range",K 

INFUT "Enter value of steps 
GOTO 390 


dob : PRINT TAE(10) 3 "WEEKLY 





QUARTERLY" 
“METER COST COST 
(POUNDS) (POUNDS) 
(POUNDS)" 
PRINT STRING$(40,"—") 
IF C$="s Hy 
THEN M=Y3J=Y 
TO K STEP L 


"E" THEN GOTO 570 
O=MxX/1000xN 
IF 0 $ THEN P=0-E 
IF O>=6 THEN O=6 
IF E=1 THEN O=MXN 
IF E=2 THEN O=UXN?F=VxXN 


IF E=2 THEN GOTO 680 

PRINT TAB(O,VFOS) $M$TAE(10)3T/133 

TAB (20)3T/33TAB(30)$T 

NEXT M 

END 

PRINT TAB(O,VPOS) $V+U3TAB(10)$T/133 
TAB (20) $T/3$TAE(30)3T 

PRINT 

PRINT "(COMBINED DAY FLUS NIGHT UNITS)" 
END 
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prsonal 
SORIWARE 


Personal Software is a new quarterly publication from the people who 
bring you Computing Today. To celebrate the launch of the BBC 
Microcomputer our first issue will consist of more than 20 programs 
covering Domestic, Financial, Educational, Games and Scientific areas. 


All the programs are fully tested and documented and the listings have 
been produced directly from the BBC Micro to eliminate errors. As an 
additional service we are offering copies of the programs on tape through 
our CT Software organisation. 


As well as featuring the best software from previous issues of Computing 
Today converted for the BBC Micro in order to show off its advanced 
features, the publication also includes a number of specially commissioned 
programs which reveal even more special functions. 


If you own or have ordered a BBC Micro, or are just looking for a 
collection of Extended BASIC programs to convert to your system, then 
you need Personal Software: BBC Programs. 


Personal Software will be on sale at your local newsagent from Friday 14th 
May at £1.95 or you can order directly from us at £7.80 per annum or 

£1.95 per copy. To ensure a single copy or a complete year's supply fill in 
the form below — you can even spread the load with your credit card. 






SUBSCRIPTION ORDER FORM 














I Cut out and SEND TO: 

I 2 | 

©) ARE | 

i NLS CR46AR, | 

I 

I Please use BLOCK CAPITALS and include post codes. Please commence my subscription to Personal Software with | 
e , issue. 

I Name (Mr/Mrs/Miss) | 

I delete accordingly SUBSCRIPTION (tick O as | 

J Address RATES appropriate) | 

I £7.80 for 4 issues £1.95 for a single | 

i UK fa} copy of the issue O | 

I I am enclosing my (delete as necessary) | 

I Signature Cheque/Postal Order/International Money 

| Order for £...... $ | 

(made payable to ASP Ltd) 

I Date OR 

| Debit my Access/Barclaycard * mie 

| (‘delete as necessary) | 

1 82Summer tosert cord no. [TT T TT TTT TTT) | 


ee oe eee eee eee eee SS a ee ee 
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Plot ‘n’ Planner — Work out the cost 
of your new carpet or how much 
grass seed you'll need 

for the lawn."Draw’ any 


irregular shape ona AREA=81.- 
displayed grid pattern 

and thecomputer will 

work out the enclosed 

area. 


1.5K 


Calendar — With this versatile 
program you need never be without 
a date! The program will give the 
number of days between any two 
dates, what day of the week any 
date fell on and a display of 
any month of any year 
since 1582! 

3K 





Mike James 





PLOT ’N’ 
PLANNER 





Work out the cost of 
ate new carpet or 

Ow much grass seed 
you'll need for the 
lawn with the help of 
this ingenious area 
plotter. 








Lines 240-300 


Lines 310-320 


Lines 330-370 


\ Lines 380-450 
I Lines 460-530 





i | Lines 540-600 














Program Corel 


Plot 


Area 


End 


Calculation 
Plot/unplot 


Selects MODE 5, defines grid 
array, defines character (224) as a 
cross and enables the arrow keys to 
be used. The command VDU 5 in 
ine 70 joins the graphics and text 
areas of the screen. 

Calls the different procedures 
defined later in the program — that 
at line 90 prints the grid, that at 
ine 110 plots the cross, and so on. 
Line 120 registers any keypress, 

ine 140 responds to the space bar 
being pressed, line 150 responds to 
‘E’ and lines 170 to 200 respond to 
he arrow keys. 

Plots the shape indicated by the 
vertices. 

Makes text and graphics 
independent, calls routine to 
calculate and print answer. 
Restores normal mode of VDU 
operation. 

Calculates area and prints result. 
First plots (460-490), then unplots 
(500-530) the user-controlled cross. 
Marks vertices by an asterisk. Emits 
a sound if unable to accept any 
vertex. 

Plots grid of lines (in red) on 
screen. Yellow (colour used to mark 
vertices) is selected in line 720. 











the area of an irregular shape 

but if you are trying to 
decide which carpet you can 
afford, how much lino is 
required to re-do the bathroom 
or how many paving slabs you'll 
need for the patio then it's a 
calculation you need to get 
right or it could end in disaster! 
This program does the sums for 
you and won't mind how many 
alcoves and window bays you've 
got to take into account. 

A grid appears on the 
screen and a cross appears in 
the bottom left. Using the arrow 
keys you can move this cross 
around the screen in order to 
mark points anywhere on it, 
When you want to mark a point, 
press the space bar and an 
asterisk will appear. When 
you've marked all the points 
required, the computer joins 
them up to display the shape of 
the area you are interested in 
and calculates the displayed 
area. 


I can take hours to work out 


Measuring Up 
It's up to you to decide what 
units you want to measure in — 
feet, yards or metres. Your 
chosen unit will, of course, 
depend on whether you are 
interested in your own kitchen 
or the Albert Hall, your back 
garden or a prairie wheat field. 
Whatever your chosen measure, 
let one unit be represented by 
one interval on the grid. 
You may discover lots of 
other uses for this program. It 
can help, for example, as you 
agonise over whether to start 
tiling the floor from the left- 
hand or the right-hand corner 
of the room — draw out both 
options and look at the 
consequences, after all it's so 
easy to rub it out and start 
again! 
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ype 


TECHNICAL DETAILS 
This program has been written 
from scratch for the BBC Micro 
and uses many of its facilities. 
MODE 5 is selected to allow 
four colours to be used and the 
graphics and text screen are 
joined to allow the cross to be 
printed anywhere on the screen. 
The cross character CHR$(224) 
is defined using a VDU 23 call 
and is plotted by the usual 
MOVE X,Y:PRINT CHR§(224); 
combination. To avoid wiping 
out either the grid or any 
plotted asterisks, the cross is 
plotted after a GCOL 4,0 
command which causes the 
cross to take on the logical NOT 
of the colour already present at 
the location. As the cross is 
unplotted after the same GCOL 
command, any colours the cross 
has changed are restored to 
their original values. 

The only other special 
technique used by this program 
is the disabling of the cursor 
editing keys by *FX 4,1. After 
this command, pressing any 
cursor key returns an ASCII 
code instead of moving the 
cursor, ie they behave like 
normal keys. To restore the keys 
to their original function use 
*FX 4,0. 








DIM X(50),Y(50) 
V=0°Z=0 
MODE 5 
“FX 4,1 


818,818 
VDU 5S 
D=10 
PROCGRID 
=03Y=0 
ROCX (X,Y) 
A=INKEY (0) 
OX=XiOY=Y 
IF A=32 THEN PROCV(X,Y) 
IF A=69 THEN GOTO 230 
A=A~&88 


IF A=0 AND X>0+D THEN X=X-D 

IF A=1 AND X<1279-D THEN X=X+D 

>0+D THEN Y=Y-D 
1023-D THEN Y=Y+D 


IF A=2 

IF A 
FROCE(OX,OY) 
FROCX (X,Y) 
GOTO 110 
PROCB(X,Y) 
IF V3 THEN GOTO 330 
GCOL 0,3 

MOVE X(0)+28,Y(0)-8 
FOR I=1 TO V-1 

PLOT S,X(1)+28,Y(I)-8 
NEXT I 

PLOT 5,X(0)+28,Y(0)-8 
VDU 4 

GOSUB 380 

A$=GETS 

MODE 7 

«FX 4,0 

YoU 4 
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HOW TO USE THE 
PROGRAM 


You can move the pointer (the 
cross that appears in the bottom 
left-hand corner) in any 
direction using the arrow keys. 
When you want to place a point 
(vertex) on the grid, press the 
space bar and a yellow asterisk 
should then appear. Move the 
cross to the position you want 
for your next vertex, mark it 
with another asterisk and 
continue until all the vertices 
are in position. Then type ‘E’ 
(and Return) and the vertices 


Below: The completed plan 
with its points joined up and 
the area displayed. 





AREA-S1 -2735 


END 
Z=0 


will be joined up in the order in 
which they were input and the 
area will be calculated and 
displayed. 


SCOPE FOR 
IMPROVEMENT 


To make the program even 
more widely applicable, you 
could allow the user to input a 
scaling factor — so that one 
grid interval could represent 
any number of units you cared 
to select (eg 1 interval = 5 
units, so that 1 square = 25 
square units). 


Above: The grid being 
plotted with the 
required points. 


FOR R=0 TO V-1 

S 1-INTCCR+1)/V) VU 
VDU 23,224,818,8FF,&FF,&18,818,818, T=R+2-INT((R+Z)/V) KV 
Z=Z+X(SIKCY(T)-YCR)) 


NEXT R 


PRINT TAB(0,2);"AREA="5ABS(Z)/Z0000 


RETURN 


DEFFPROCX(X,Y) 


4,0 


X,YiPRINT CHR$(2 


ENDFROC 


DEFPROCE(X,Y> 


GCOL 4,0 


MOVE OX,OY!PRINT CHRS(224)}3 


ENDFROC 


X(V)=X 
YCV)=Y 
V=eVel 


DEF PROCV(X,Y) 
IF V>49THEN SOUND 1,~> 


15,150,10:GOTO 600 


MOVE X,Y!FRINT "x" 


ENDFROC 


DEFFROCGRID 


GCOL 0,1 


FOR X=0 TO 1279 STEP 100 


MOVE X,0 


PLOT 5,X,1023 


NEXT X 


FOR Y=0 TO 1023 STEP 100 


MOVE 0,Y 


PLOT 5,1279,Y 


NEXT Y 
GCOL 0,3 
ENDFROC 
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CALENDAR 





You need never be at 
a loss for a date! 





Mord 1962 
5 Mw Wh ES 
133456 


7 8 9,101 1213 
4:15 16'17.18 19:90" 
219293 20 952697 
282930 31 






Crowe 





FEBRUARY 


N 
15 






1 6 » 


month Cnumber) 76 
year Cincluding century i.¢. 


June 1982 
Sunday 


Monday 
pognees 
Wednesday 
Thursday 
Ef eas 
Saturday 


Piniaiateieded 
WONDUAW 
NNNNNNN 
ANAND 


NEO 





his program lets you check 
your dates in three 


different ways. It will give 
you the number of days 
between any two dates — be 
they in the present or the past, 
or in the same or different year 
of the same or different century. 
You can use this facility to 
discover, for example, how 
many days there are to 
Christmas, how many days 
you've already lived or how 
many days since you left (or 
started at) school. 

It will also tell you the day 
of the week that any date — in 
the past five centuries or in the 
future — will fall 














week you were a 
or what day your 
fall on in ten year 
Lastly, it wi 
calendar of any 
year after 1582 (1 
Gregorian Calendar on which 
we operate came into use). The 
program takes nt of Leap 
Years — and even foxed 
by the quirk occurs at the 
turn of the ce , 


TECHNICAL DETAILS 


This program uses Zeller's 
Congruence — an equation 
which w: | you the day of 
the week for any date taking 

f the fact that Leap 
se years with 29 days 
rY) occur in every 
year divisible by four but only 
in one in four turn of the 
century years, namely ones 
where the first two digits are 
divisible by four. 


HOW TO USE THE 
PROGRAM 


This program is self- 
explanatory. You are asked to 
choose which option you want 
— the number of days between 
any two dates, the day of the 
week on which a given date 
falls or to print out the calendar 
of any month of any year. The 
important point to remember is 
to enter the dates which interest 


D 
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you in number form, specifying 
first the day (if you have opted 
for either 1 or 2); then the 
month and lastly, the year. 
When inputting the year you 
are asked to stipulate the 
century, for example, if you 
wanted to refer to Christmas 
Day this year you would write 
25, 12,1982. If you write 
25, 12,82 the computer with 
think you mean the 25th of 
December in the year 0082! 
The only limitation on the 
use of this program is the fact 
that the Gregorian Calendar, 
the one we currently use, was 
only introduced in 1582. If you 
ask for dates prior to this you 
will not get an accurate result 
— but it’s still fun to check 
which day of the week 1,1,1 
was! 


SCOPE FOR 
IMPROVEMENT 


You could easily modify the 
program to print the calendar 
for a full year and by altering 
the printing format, you could 
produce a handy month- or 
year-planner. 


DATE 








You can use 





1) The 
two 





dates 







date falls on 


To print 


month of any ye 


TYFE APFROFRIATE NUMBER 


Enter the date in 





~ day,month,y 





(the 
ise. 


yesr 


1982 rather than 


P1.1,1982 


1 January 1982 





is a Friday 
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CHECK 


E 





this program to find 


number of days between 


2 celander 


er 


22 






eer 


82) 


Lines 10-30 
Lines 40-240 
Lines 250-310 


Lines 320-440 


Lines 450-550 


Lines 560-810 


Lines 820-870 


Lines 880-1070 


R 


any 


The day of the week that any 


of any 












NUMBER form 





should include the century 






Set Up 
Menu 


Restart 


Days Between 


Day of Week 


Calendar 


Zeller's 
Congruence 
General Date 


DATE CHE C 





1) 


You can wse this program to find 


The mumber of 


PROGRAM STRUCTURE 


Function 


Selects MODE 4. Clears screen and 
jumps to initialisation routine. 
Prints title and instructions with 
choice of three options. 

Checks whether user is finished 
with program and restarts if 
required. 

Gets input, calculates the number 
of days between two dates and 
prints result. 

Gets input, calculates which 
weekday corresponds and prints 
result. 

Gets input, checks for Leap Year 
and calculates day of first of month. 
Lines 710-790 print out calendar. 
Calculation to obtain day of the 
week. 

Asks for input of date in prescribed 
form, checks for validity and 
returns message if mistake over 
Leap Year. 

Reads in names of months with 
days in each and names of days. 


Calculates the number of days to a 
given date. 









CAL 





E 
& 


ND 









days between any 


two dates 





3) 


TYPE AFPROFPRIATE 
Which month 


Which year 
198Z)?1982 


1+@- 


Sunday 





FRESS 


The 
date 


To print @ cala 
month of 


Press any key to 


ANY KEY 
HAVE YOU FINISHED?Y 





day of the week that any 


falls on 





of ary 





any ve 


continue 








NUM 
Criumber > 








Cineluding century 


dune 1982 


é 
8 


9 


1 

3 16 
4 AL 
a. see 
TO CONTINUE 



















| CALENDAR 
Ly 


RETURN 

CLS 

PRINT SPRINT 
| x INFUT "Which month (number) ",MONTH 
aa " ‘ IF MONTH“1 OR MONTH*12 THEN GOTO 580 
| INFUT "Which year (including 
Century ise, 1982)",YEAR 
FOR I=1 TO 1000%NEXT I 


NTCYEAR/100) 
YEAR-CEN*100 


f IF (YEAR“INT(YEAR/4)*4)=0 OR 
i / hay (CEN-INT(CEN/4)*4)=0 THEN LEA 

¢ ‘ PRINT TAB( 15,10) $M$(MONTH) $" "$CEN3YEAR 
i fe : PROCZEL (DAY »MONTH, YEAR, CEN) 

ere IF LEAP=1 THEN M(2)=29 

< " PRINT 
\| Bin. 4 ae , FOR J=0 TO 6 
iH a ; PRINT TAB (8) $DAY$(U) $ 
i i : FOR K=0 TO 5 


(MONTH) THEN GOTO 770 

i MODE 4 PRINT TAB(KK34+20) 3D} 

\ CLS IK 

{| PROCINIT 

{Il NTSPRINT 

NT TABC1O)3"C AL END AR" SS ANY KEY TO 

C146) 5"a" 
(;"D ATE CHECKER" 


can use this program to find" MONTH#MONTH=2 





t) TAR IF MON THEN MONTH=MONTH+123 YEAR= 
1 1 T= INT(2.6KMONTH~ 419) +DAY+YEAR+ 
NT TAB(S)$"1) The number of INT(YEAR/4) #INT (CEN/4)=2xCEN 
} days between any" NT(I/7) «7 
if! PRINT TAB(S)$" two dates" ENDPROC 


H PRINT DEFFROCDATE 
| PRINT TAB(5)$"2) The day of the 
i week that any" f ter the date im NUMBER form" 
i RINT TAB(S)$" date falls on" 
PRINT INT TAE(1L0)3"= day,month, year" 
: PRINT TAB(S)3"3) To print a [NT 
calander of any” PRINT" (the year should include the 
1 NT TAB(S)$" month of any year" century" 
{ PRINT PRINT PRINT" ise. 1982 rather than 8z)" 
i INFUT" TYE : = NUMBER", A PRINT 
| 2 IF a ‘ 2 RINT TA 2 INFUT DAY,MONTH, YEAR 
| R BETWEEN ONE AND THREE 0 
TAB (0,20)3GOTO 210 
ON A GOSUE 320,450,540 


CLS 

PRINT? INEUT "HAVE YOU FINISHED", As 
AS=LEFTS (A$, 1) 

IF Ag="N" THEN RUN 

IF A$e="Y" THEN GOTO 250 

CLS 

END 

CLS INTS PRINT 

PROCDATE 

FOR J#1 TO 12 

MCS) =M CJ) 4M (de 2) 

NEXT J 

PROCDAYS 

D1=DAY 

PROCDATE 

OCDAYS 

PRINTIPRINT "The ruaimber of days 
between the" 

INT" two dates is "fA (Di-DAY) 
INT TAE(O,31)3" 3G ANY KEY TO 
CONTINUE" § SA$=GETS 

RETURN 

C 

















OR 
74)*420) THEN LEAP=1 
“DAY AND DAY>0 THEN GOTO 1070 
* MONTH#2 AND LEAP =1 AND DAY=29 
1070 

PRI 
FRINT "There is mo such day in "$ 
M$ (MONTH) 
GOTO 900 

"ROC 

* PROCINIT 
DIM M#C12),M(12),DAY$(4) 
DATA Janvary,31,February,28,March, 31, 
April,30,May,31 
DATA June, 30,July,31,Auqust,31, 
September ,30 
DATA October ,31,November ,30,December ,31 
DATA Sunday,Monday, Tuesday, 
Wednesday, Thursday,Friday, Saturday 
FOR I=1 TO 12 
READ M$(I),M(I) 
NEXT I 





OL. FOR I=0 TO 6 
INT? PROCDATE READ DAY$(T) 








| PROCZEL (DAY sMONTH, YEAR, CEN) NEXT I 
\\ PRINT ENDFPROC 
Hl PRINT DEFFROCDAYS 
} PRINT DAY$" "$M#(MONTH) $3" "$CEN} YEAR YEAR=YEAR+CEN*100 
1h PRINT DAY=DAY+M (MONTH) +365XYEAR+INT( (YEAR~1)/4) 
iH PRINT TAB(LO)$ “is a "fDAYSCT) IF INT(YEAR/4)&4=YEAR AND MONT 
i} PRINT THEN DAY=DAY-1 


PRINT'Fress any key to continue" tA$=GETS ENDFROC 





80 Personal Software Summer ‘82 





Educational 


Descriptive Statistics — As statistics packages go, this is a short and simple one — but 
it will still turn unwieldy raw data into neat statistical information. 5.5K 





Newton's Law — With this program, 
ihe computer enables the user to get 
the feel for Newton's Law of 
Gravitation as applied to the motion 
of planets. The orbits of planets 
are calculated and displayed on 
the screen. It can even simulate the 
‘slingshot’ effect as used to send the 
Voyager spacecraft from 
Jupiter to Saturn! 

4.5K 


Root Solver — This program will calculate 
and list the roots of any polynomial 
(providing the coefficients are real!). 

The polynomial can be of any order 

and both real and complex roots 

are derived. 


2.5K 


ENTER ORDER OF POLYNOMIAL. 7% 
ENTER ACS) 73 

ENTER AC4) 

ENTER AC3> 

ENTER AC2> 

ENTER AC1> 

ENTER ACOD 

ARE ALL ENTRIES CORRECT?Y 














Converted from a program by A P Stephenson 





DESCRIPTIVE 
STATISTICS: 





PROGRAM STRUCTURE 









Selects MODE 4, defines character 
224 as a solid square and defines 
array D. 

Displays the nine options available. 


User asked to choose option, jumps 
to appropriate section of program. 


User allowed to input data or to 
add data to existing file. 

User asked to name data file. 
Computer generates random data 
file to user's specifications. 

Data file listed, seventeen items at a 
time. 

User allowed to modify any data 
item. 

Jumps to line 390 if option 5 
requested. 


Displays data items as a bar chart 
(first 38 items only). 


Calculates sum and mean of data 
items, variance and standard 
deviation. Notes maximum value. 


Prints results of the above. 


Indicates confidence intervals for 
‘normal’ data. 


‘Press any key to continue’ 
message. 
General input routine. 


Produces histogram of first 38 data 
items. 


Prints y-axis for bar chart. 


Finds maximum value among data 
items. 


Prints borders to tabular displays. 
Instructions to save data file on tape 
with routine. 

Instructions to load data file from 
tape with routine. 

















Selection 










Input Data 

















Name File 
Random Data 
















Data Display 














Lines 870-970 | Edit 












Lines 980-990 | Add Items 




















Lines 1000-1190] Bar Chart 















Calculations 

























Results 
Confidence 
Limits 

Continue 
















Input 
Print 
Histogram 
Y-axis 




















Borders 
Save File 

















Load File 











rips 


s statistics packages go, 

this is a short and simple 

one. But, it will still turn 
unwieldy raw data into neat 
statistical information. 

Nowadays everybody has an 
opinion about statistics — you 
either hate and fear them or you 
revel in them. To the cynic, a 
statistic is a damned lie, to the 
politician a statistic is a white lie 
and to the scientist and 
engineer, a statistic isa 
mathematically acceptable 
guess used as a last resort when 
knowledge is either feeble or 
too expensive to obtain! 

Unfortunately, statistics is a 
branch of mathematics which 
even its devotees can find 
tiresome. It promises so much 
but even simple exercises 
involve the manipulation of a 
depressing amount of data. The 
beginner is often deterred from 
trying to master the subject 
simply because it takes so long 
to get an answer. This state of 
affairs obviously calls for a 
computer program. 


Statistically Speaking 

This particular program 
provides an easy method of 
entertaining and modifying 
statistical data and would 
certainly help anyone to try out 
the various lengthy examples 
which appear to be vital in 
gaining confidence in the field 
of statistics. The actual analysis 
of the data is the comparatively 
easy part and can be expanded 
according to the knowledge and 
requirements of individuals. 
This program could therefore 
be considered a data input 
skeleton which could form a 
useful starting point for a more 
extensive one. 
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Right: A bar-chart display of the 
tandom data. Up to 38 entries can be 
displayed across the screen 


POPULATION SHOULD HAVE 


69 AND 44 >4 
ATION’ SHOUD HAVE 
».98 AND 56.42 


i) | Se SHOULD 
BETWEEN 19,86 AND 56.54 


HAVE 


ANY KEY TO CONTINUE 


Right: The final analysis of the data 
provides the usual statistical 
information. 
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Baliiticice! 


Left: The main menu generated by the 
program. The information analysed 
below has been generated by 

Option 3, the random data generator. 


Left: The analysis of the data is 
performed between specified 
confidence limits. 


THE DATA ITEM 


1UM DATA ITEM 


DEVIATION 


ANY KEY TO CONTIRUE 














DESCRIPTIVE STATISTICS 


TECHNICAL DETAILS 
This program has been 
converted from PET BASIC. 
The only interesting features of 
the conversion are the use of 
CHR§(224) to produce the 
histogram bars and the use of 
TAB(X, VPOS) to tabulate across 
the current line without wiping 
out the borders (lines 70-250). 


HOW TO USE THE 
PROGRAM 


The program gives you nine 
options but you will have to 
choose either option 1 (input 
data) or option 3 (generate 
random data) on the first 
occasion you use it. Having 
obtained some data you can 
then choose to display it 
(option 2), modify it (option 4) 
or add to it (option 5). 
Option 6 enables you to 
display a bar graph of your 
data. This is only likely to be 


MODE 4 


VDU 23,224,8FF,&8FF,&FF,8FF,&FF,aFF, 


&FF ,&FF 
DIM D(1000) 


GOSUB 19103REMXxXCLEARS SCREEN 


VDU 30 

PRINTS PRINTS PRINT 

PRINT TAB(S,VPOS)$}"INFUT DATA 
ITEMS+eeeee ed" 

PRINT 


PRINT TABCS,VFOS);"DISFLAY DATA 


ITEMS + +4442" 

PRINT 

PRINT TABCS,VPOS) $ "GENERATE 
RANDOM DATA. ++3" 

PRINT 

PRINT TAB(S,VPOS) $3 "MODIFY 
DATA sereseeree ed” 

PRINT 


ANALYSTS 


NUMBER OF DATA ITEMS 
SUM OF THE DATA TTEMS 
MAXIMUM DATA CTEM 
MEAN YALU 


STANDARD DEVIATION 





useful with very special sorts of 
data as the number of items it 
can handle is limited to 38 and 
each data item is displayed 
separately. This is NOT a 
histogram for displaying 
frequencies although it would 
be useful with time series data 
— for example, showing 
monthly rainfall or for hopeful 
slimmers, the number of pounds 
lost per week, 

For a statistical analysis of 


TAB ( 
S INPUT" SPRINT 


GOSUE 1680 


CLEAR 3 DIM 


+1 


PRESS ANY KEY TU CONTINUE 


ASSUMENG THE 
AMD FROM AN 
THE FOLIOWENG 


WAS FREE FROM EAS, 
DISTRIBUTION 
JUSTIFIED! 





68% OF THE ‘POPULATION’ SHOULD HAVE 
VALUES BETWEEN 10,84 AND 39,52 





95% OF THE “POPULATION SHOUD HAV 
VALUE BETWEEN ~3+51 AND 53,87 


92.5% OF THE ‘POPULATION’ SHOULD HAVE 
VALUES BETMEEN ©17,85 AND 68,21 





PRESS ANY KEY TQ CONTINUE 


your data, select option 7. The 
computer will then give you the 
sum of all your data items and 
their mean, the maximum value 
of the items and their variance 
and standard deviation. It will 
algo display ‘confidence limits’ 
for the data. 

The program has one other 
useful facility — that of saving 
your data onto a cassette 
(option 8) and re-loading it 
(option 9), 


3)3"3, KEY END TO 


DC 1000) 3E% 


*xXFLAG FOR ADD DATA OF TION 
Meh 


tIT$= "ITEM NUMBE! 
THIN} TABC 26) 3 


IF I8$="END" THEN N=N~1L¢NM=NiGOTO 510 
DCN) =VAL (I8%) {N=N+1 

IF N-1#1 THEN DM=D(N~1) 

IF D(N-1)>DM THEN DM=D(N-1) 


F=0 
GOTO 410 


PRINT TAB(S,VPOS);"ADD MORE DATA PRINT 
CLStPRINTSPRINT TAB(240) 
PRINT "THE DATA FILE MUST BE 
OF GIVEN A NAME" {PRINT 


ITEMS..+.5" 

PRINT 

PRINT TABCS,VFOS) } "BAR GRAFH 
DATA+ + +4046" 

PRINT 


PRINT "THE 


MUST 


PRINT TAE(S,VPOS)$"ANALYSIS OF SS PRINT 


DATAsseeeae7" 
NT 
NT TAB(S,VFOS)3"SAVE DATA 
TAFE + +404 68" 
PRINT 
PRINT TABCS,VFOS);"LOAD DATA 
"Ee eee 


NT 


PRINT TAB(6,25); "ENTER DESIRE 


OFTION '"$ 
GOSUB 1720:K$=I18% 
IF VAL(K$)<1 OR VAL(K$)>14 THI 
ON VAL(K$) GOTO 290,740,610,8 
980,1000,1210,1990,2120 
CLSIPRINT 

NT SFC(7)$"NOTE THE FOLLOW 


P PT TAER(3)3"1. DATA MUST BE 
NUMERIC" SPRINTS PRIN 

FRINT TAB(3) 

AFTER EACH ITE 


PRINT 
PRINT 
ON Gosu 
TNS$#I8$ 
GOTO 40 


NUMBER OF CHARACTERS 


:$S THAN ELEVEN" 


FROM CLStPRINT TAE(240)?DM=13X=RND(1) 
PRINT “HOW MANY RANDOM INTEGERS "3 
PRINT TAB(30)3!GOSUB 1720% 

D NM=VAL (I8$) SPRINTS PRINT 
PRINT "LOWEST INTEGER WANTED "$ 
PRINT TAE(30)3iGOSUB 1720% 


EN 260 VAL. (T8$) 


SPRINT? PRINT 


70, INT "HIGHEST INTEGER WANTED "3 
PRINT TAE(30)}3GOSUB 1720% 


H=VAL (I8¢) 


SPRINTSPRINT SPRINT SPRINT 


ING ¢ PRINT TAB(C10)3;"WAIT A FEW SECONDS " 
FOR N=1 TO NM 
DON) ®INT( CH~M+1) XRND (1) +M) 
IF D(N=1)>DM THEN DM=D(N~1) 


NEXT N 
GOTO 520 


CLStIT$="ITEM NUMBER " 
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PRINT TAB(10);"DATA HELD ON FILE"? 
PRINT SPRINT 

PRINT TAB(6)$"DATA IS NAMED "3 TN¢?PRINT 
Ps 

FOR S=1 TO NM 

IF 7 THEN PRINT:GOSUB 16803F=1% 

CLS INT 

PRINT IT#3S3TAB(25) $D(S) 


PRINT$PRINT TABC13)"END OF DATA" 
P=03F=0 

PRINT{GOSUE 1680:GOTO 40 

CLS 

PRINT TAB(S)$"MODIFY SELECTED 
DATA ITEM" $PRINT{PRINT SPRINT 
PRINT "ENTER DATA ITEM NUMBER "3% 
GOSUB 17103PRINT 

IF VAL (I8$)<« M THEN PRINT:GOTO 920 
PRINTSPRINT TAB(S)3"NO SUCH DATA 
ITEM"3PRINT{GOTO 890 

I8=VAL(I8$) tPRINT? PRINT 

PRINT "DATA ITEM "3Ie83" IS "3 
D(T8)SPRINTSPRINT 3 PRINT 

PRINT "ENTER THE NEW VALUE "33 
GOSUB 1710 

D(I8)=VAL(T8$) 

GOSUE 1840 

GOTO 40 

CLSiF=1:GOTO 390 

PRINT "ENTER THIS NOW..."3 
CLS{PRINT TAB(240) 

PRINT "DUE TO LIMITATIONS IMPOSED 
BY THE SCREEN" $PRINT 

PRINT "WIDTH, THE BAR GRAPH ONLY 
DISPLAYS THE"$PRINT 

PRINT "FIRST 38 DATA ITEMS" $PRINT? PRINT 
PRINT? PRINT SPRINT 

GOSUB 1690 

CLStGOSUB 1840 

PRINT TAE(O,1)3"-"30M 

Ne=1 

FOR X8=Z TO 39 

IF DM=0 THEN DM=1E-30 
N8=25xD(N)/DM 

GOSUB 1740 

NeN+d 

NEXT X8 

GOSUB 1810 

PRINT TAB(0,30)3 

GOSUB 1680 

N=N-1 

GOTO 40 

REM*XXCALCULATIONS ON THE DATA 
CLS?V=0:T=0 
PRINT?PRINT$PRINT SPRINTS PRINT 
PRINT TAB(9)"ANALYSIS PROCEEDING" 
IF NM=0 THEN NM=1E-30 

FOR N=i TO NM$T=T+D(N)SNEXT 
ME=T/NM 

FOR N=1 TO NM 

V=U+ (DCN) ME) AZ 

NEXT 

VeU/NM 

SD=SQR(V) 

Li=ME-SD?H1=ME+SD 
L1=INT(100XL1+.5)/100 
H1=INT(100KH1+.5)/100 

L2=ME~2xSD tH2=ME+2xSD 
L2=INT(100«L2+.5)/100 
H2=INT(100xKH2+.5)/100 

L.3=ME~3xSD $H3=ME+3xSD 
L3=INT(100XL3+.5)/100 
H3=INT(100xKH3+.5)/100 

CLS?GOSUB 19103VDU 303PRINTS PRINT? 
PRINT TAB(12,VP0S)}"ANALYSIS" 
PRINT 

IF NM=1E-30 THEN NM=0 

IF DM=1E~-30 THEN DM=0 

FRINT 

PRINT TAB(2,VPOS)$}"NUMBER OF DATA 
ITEMS" $TAB(25) $NM INT 

PRINT TAB(2,VP0S)3"SUM OF THE 
DATA ITEMS"; TAB(25) $TSPRINT 
PRINT TAB(2,VPOS)3"MAXIMUM DATA 
ITEM" $TAB(25) $DM$ PRINT 

PRINT TAB(Z,VPOS);"MEAN VALUE"$ 
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TAE(25) $MES PRINT 
PRINT TAE(2,VFOS) }"YARIANCE" 3 
TAB(25) $U3PRINT 
PRINT TAE(2,VFOS)$"STANDARD 
DEVIATION" $ TAB( 25) }SDIPRINT SPRINT! PRINT 
GOSUB 1690 
CLStPRINT 
PRINT "ASSUMING THE DATA WAS FREE 
FROM BIAS," i 
PRINT "AND FROM A NORMAL DISTRIBUTION" 
PRINT "THE FOLLOWING ARE JUSTIFIED!~" 
PRINT? PRINT 
PRINT "684 OF THE ‘POPULATION’ 
SHOULD HAVE" 
PRINT "VALUES BETWEEN "$L13" AND 
PRINT?PRINT "954 OF THE 
“POFULATION’ SHOUD HAVE" 
PRINT “VALUES BETWEEN "$L23" AND 
PRINT 
PRINT "99.54 OF THE ‘POPULATION’ 
SHOULD HAVE" 
PRINT "VALUES BETWEEN "3L33" AND 
PRINT PRINT 
GOSUE 1690 
GOTO 40 
REMXXANY KEY ROUTINE 
PRINT TAE(2,VFOS)}"FRESS ANY KEY 
TO CONTINUE" tA$=GET$ * 
RETURN 
REM INPUT 
INFUT Ia¢ 
RETURN 
REMXXVERTICAL BAR OF NS 
REMXxAT CO-ORDINATE X8 
IF N8>25 THEN N8=25 
FOR Z8=26 TO 26-N8 STEP ~1 
IF N8=0 THEN 1800 
PRINT TAB (X8,Z8) $CHRS(224) $ 
NEXT RETURN 
FOR C8=2 TO 26 
PRINT TAB(1,C8)3"."3 
NEXT! RETURN 
DM=D(1)3REMXXFIND THE MAX VALUE 
FOR N=1 TO NM~1 
IF D(N+1)>DM THEN DM=D(N+1) 
NEXT N 
RETURN 
GOTO 40 
REM *xXUSE $$$ TO 
REMXXPRINT BORDERS 
CLS 
PRINT STRING$(39,"$") 
FOR L=1 TO 29 
PRINT "$"3TAE(38,L)3"$" 
NEXT 
PRINT STRING$(39,"$") 
RETURN 
CLS{FPRINT 
PRINT TAB(3)$"1. INSERT A CASSETTE" SPRINT 
PRINT TAB(3)3"2, REWIND IT" $F RINT 
3"3. PRESS ‘PLAY’ AND 
“RECORD ’"$PRINT PRINT 
IF TN$="" THEN TN$="NONAME" 
FILE=OPENOUT(TNS) 
PRINT#FILE,NM 
PRINT#FILE,DM 
FOR N=1 TO NM 
PRINT#FILE,D(N) 
NEXT N 
CLOSE #FILE 
GOTO 40 
CLS?PRINT 
PRINT "WHAT IS THE NAME OF THE 
PRINT 
CLEARSDIM D(1500) 
GOSUB 17103PRINT!PRINT 
TNS=I8$ 
PRINT TAB(3)3"1. INSERT THE DATA 
TAPE" PRINT 
PRINT TAB(3)3"2,. REWIND IT"tFRINT 
PRINT TAB(3)3"3, PRESS PLAY" 
PRINTSPRINT 
FILE=OPENIN( TNS) 
INPUT#F ILE ,NM 
INPUT#FILE,DM 
FOR N=1 TO NM 
INPUT#1,D(N) 
NEXT N 
CLOSE #FILE 
GOTO 40 





Converted from a program by J D Lee and T D Lee. 


NEWTON'S 





his program allows the user 
to get a feel for Newton's 
Law of Gravitation as 

applied to the motion of planets. 
The orbits of planets are 
calculated and displayed and 
by experimentation the user can 
find stable orbits (circles or 
ellipses), and the precession of 
elliptical orbits may be 
observed. 

It is also possible to simulate 
a ‘slingshot’ such as that used to 
send the Voyager spacecraft 
from Jupiter to Saturn. In this 
the spacecraft is aimed in front 
of the planet, loops round the 
planet due to its gravity and 
finally leaves the planet moving 
faster than before the 
encounter. By this devious route 
the spacecraft gets to Saturn 
guicker than by going directly 
— an ingenious way of saving 
time and fuel! 
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Photograph courtesy of Hughes Aircraft Corporation 


The Final Frontier 

Tycho Brahe was one of the 
earliest astronomers to make 
accurate observations of the 
planets. Using his data, Kepler 
deduced three laws of planetary 
motion: 


1. Planets move in ellipses, with 
the sun at one focus. 
2. The radius vector joining the 
planet to the sun sweeps out 
equal areas in equal time. 

3. The period of orbit squared 
is directly proportional to the 
semi-major axis cubed. 

Robert Hooke, who had been 
studying the effects of gravity, 
suggested that gravity might 
vary with the inverse square of 
distance. Newton checked 
Hooke’s ideas and concluded 
that an inverse square law for 
gravity would result in elliptical 
planetary orbits. 





Observe the effects of 
gravitational force on 
your BBC Micro. 


An Apple A Day 


Newton's name is remembered 
since he was the first to publish 
the result now generally known 
as Newton's Law of Gravitation: 

F = GxM1xM2 

d2 

where F is the force of attraction 
between two bodies (planet and 
sun), M1 and M2 are the masses 
of the two bodies, d is the 
distance between the bodies 
and G is the universal 
gravitational constant. The 
value of G depends on the 
system of units used; with SI 
units: 
G = (6.673 + 0.003x 10” 
Newton metres?/kilogram? 
The program uses the equation 
for Newton's Law of Gravitation 
together with Newton's second 
Law of Motion which states: 
force acting on a body = mass 
of body x acceleration of body 
or 
F=Mxa 
Very accurate measurements of 
the orbit of the planet Mercury 
show that it precesses slightly 
faster than can be explained 
using Newton's Laws, and this is 
explained by Einstein's theory of 
Relativity. However, these 
changes are extremely small 
and are thus ignored in the 
program. 


TECHNICAL DETAILS 
The program is a fairly straight- 
forward simulation in BASIC. 
MODE 4 graphics are used to 
give high resolution plots of the 
orbits in the standard black on 
white. 

As we only have two colours 
available in MODE 4, the 
current positions still have to be 
identified by plotting numbers 
(ie 1 for body one, 2 for body 
two and 3 for body three). The 
easiest way of achieving this, 
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A simple two-body orbit plot. A three-body orbit early on. 


A three-body ‘slingshot’ type of orbit. The three-body orbit at an intermediate stage. 


As above but after a longer period showing the movement The three-body orbit showing the displacement of Body 3. 
of Body 2. 
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NEWTON'S LAW 


with the full positional accuracy 
of MODE 4, is to join the text 
and graphics screens with a 
VDU 5 command. This allows us 
to PRINT a character anywhere 
on the screen by moving the 
graphics cursor to the required 
position (MOVE X,Y) and then 
simply printing the character 
(PRINT ‘1’;). 

The only trouble with this 
joining of text and graphics is 
that normal printing of 
questions, prompts, etc is slow, 
To avoid this, the text and 
graphics screens are not joined 
until just before the program is 
ready to plot the orbits. 

It is also worth examining 
the way the PLOT routines use 
the GCOL command to PLOT 
and REPLOT the position 
markers, If you want only the 
current positions displayed then 
all you have to do is to unplot 
the character at the old location 
by printing a blank and plot the 
character at the new position by 
a MOVE and PRINT. The only 
trouble is that the obvious 
method doesn't work! When you 
join the text and graphics 
screens together you agree to 
play by the rules of the graphics 
commands rather than the text 
commands. Printing a blank will 
not overwrite an existing 
foreground character. The 
reason for this is that, unless 
you specify otherwise, only the 


-foreground colour is printed 


and the blank contains no 
foreground (white) points! 

If you would like a 
demonstration of this fact, 
simply join the graphics and 
text screens together and print a 
number of different characters 
at the same place — you will 
see that once a foreground 
colour is plotted it is never 
removed and the different 
characters become jumbled, 

It looks as though this 
‘playing by graphics rules’ is 
going to be a problem but we 
can use it to our advantage. If 
before plotting the position 
marker we use a GCOL 3,1 
instruction, this will form the 
EXCLUSIVE OR of the plotting 
colour and any colour that is 
already present. * 

This may sound difficult but 
as MODE 4 has only two colours 
this reduces to the following 
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rule: if you plot a foreground 
point (white) and the point is 
already a foreground colour 
(white) then the result is the 
background colour (black) and 
if you plot a foreground point 
and the point is a background 
colour then the result is a 
foreground colour. 

In other words, the first time 
you plot a character at a blank 
location it appears and the 
second time it disappears; this 


is, of course, exactly what we 
want for a plot-unplot routine! 
We can make use of one 
further tricky GCOL command 
to make sure the position 
markers do not blank out the 
continuous orbit plots. If you 
request a continuous display of 
positions, a point is plotted 
before the position marker is 
moved. This point is plotted 
after a GCOL 0,1 command 
which forces the point to appear 


PROGRAM STRUCTURE 


Statement 


Lines 10-160 Start up 


Lines 170-370 
Lines 380-580 


Instructions 


Two Body 
Information 


Lines 590-750 Initial 
Position/ 


Velocity 


Lines 760-860 Third body 


Lines 870-910 Alter 
Velocities 


Lines 920-1020 


Display Mode 


Lines 1030- Scaling 





Lines 1210- Move 


Routines 


Lines 1540-1550 | End 


Lines 1560-1750 | Plot 
Routines 


Selects MODE 4 and defines 
arrays used in program. Prints 
title and asks whether full 
instructions are required. 
Prints explanation of program, 


Asks whether a two or three 
body simulation is required 
Prompts for input about the two 
bodies. 


Calculates the position and 
velocity of each of the two bodies 
so that they orbit in the centre of 
the screen, adjusting the value o 
the gravitational constant so that 
they move at a sensible rate, The 
positions and velocities of the two 
bodies are displayed. 

The position and velocity of the 
third body, if specified, is 
requested. 

The velocities of all three bodies 
justed to ensure that the 

of mass is stationary 
choice of two types of 
display. 
reen is cleared, the scaling 
es are set, the screen size 
rmined and the text and 

cs areas of the screen are 





are placed on the screen 
ing and rounding the 
position x,y to produce a 
character cell P1,Q1 o 
screen. The velocities of the 
bodies is re-calculated taking 
account of the gravitational 
attraction due to the other bodies 
over a small time interval. The 
bodies are then moved a distance 
proportional to their velocity. 
‘Simulation finished’ message. 
Updates screen by either 
removing old positions and 
adding new ones or simply by 
adding new ones. 
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no matter what its original 
colour was. When the position 
marker is plotted, a GCOL al 
call ensures that it cannot wipe 
out its own trail by making any 
trail points that clash with 
position marker points change 
to the background colour. 

When the position marker is 
plotted for the second time the 
trail point is restored to its 
original colour! 


HOW TO USE THE 
PROGRAM 


The program will ask first.if full 
instructions are required. If you 
answer ‘YES’ an explanation of 
the program is displayed. Next, 
you will be asked if you wish to 
study the motion of two or three 
cosmic bodies. 

For simplicity, the first two 
bodies are always placed in 
motion around each other, and 
it is only necessary to specify 
the ratio of the masses of the 
two bodies and the distance 
between them. The computer 
will ask you to input these 
values. The program then 
calculates the position and 
velocity of each of the two 
bodies so that they orbit in the 
centre of the screen. The 
program adjusts the value of the 
gravitational constant, G, so 
that the bodies move at a 
sensible rate on the screen. The 
position and velocity of each of 
these two bodies is printed to 
assist you in choosing sensible 
values for the position and 
velocity of the third body if 
these bodies are specified. 

If a third body is being 
considered, then its position 
(x,y) and the x,y components of 
its velocity are requested 
together with its mass. Care 
must be taken when choosing 
these values or the third body 
will shoot off the screen in a 
desperate attempt to reach 
infinity! 

When the computer 
calculates the position and 
velocity of the first two bodies, 
it does so in such a way that 
their centre of mass is stationary 
and they are positioned at the 
centre of the screen; this 
ensures that the bodies stay on 
the screen. The addition of a 
third body not only moves the 
centre of mass but also sets it 
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drift off the screen. However, to 
prevent this happening the 
program adjusts all the 
velocities to make the centre of 
mass stationary. 

During the simulation, the 
program calculates the positions 
of the cosmic bodies at regular 
intervals displaying them in real 
time on the screen. Two 
different display modes are 
available: 

1. In this mode, the paths 
traced by each of the bodies (1, 
2 and perhaps 3) are displayed. 
This allows the route traversed 
by the bodies to be studied, but 
the screen may gradually 
become so filled that it may 
become confusing. 

2. In this alternative mode, only 
the current positions of the 
bodies are displayed and, as 
new positions are calculated, 
the old ones are erased. 

You will be asked to make the 
choice between these two 
modes. 


Sample Data 
The following data may be 
useful to get a feel for the 
program. 
(a) 2 bodies 
mass of second body = 0.3 
distance apart = 10 
This produces two stable non- 
intersecting ellipses. 
(b) 3 bodies 
mass of second body = 
0.05 
distance apart = 10 


moving so that the picture could 








third body: 
position = 10,0 

velocity = 0,5 

mass = 0.0] 
Body 2 follows a large slow 
elliptical orbit while body 3 
follows a tight fast elliptical 
orbit. Body 1 moves only 
slightly because of its large 
mass. Note that body 3 starts at 
only half of the speed of body 2 
but body 3completes a 
revolution in less time. This 
illustrates an interesting 
principle of spacecraft docking. 
To catch up with a spacecraft in 
front of you, you must slow 
yourself down! Enthusiasts who 
try speeding up their ship 
merely fly off into a larger orbit 
and take longer to complete a 
revolution. Such hotheads are 
thus even further behind after 
one revolution! The correct 
method of docking is to slow 
down and dock after one 
revolution. 


(c) 3 bodies 

mass of second body = 0.1 

distance apart = 10 

third body: 

position = -10,-10 

velocity = 3,0 

mass = 0.01 
This illustrates a ‘sling-shot’ in 
which body 3 gains great speed 
by means of an encounter with 
body 2. Body 3 disappears 
rapidly from the screen, leaving 
bodies 1 and 2 orbiting each 
other. These orbits gradually 
drift across the screen in the 
opposite direction to body 3. > 








NEWTON'S LAW 
AL RI ET TE TA UPON EY 















































































660 LET G=DxXDKD/(M(1)4+M(2)) 


10 MODE 4 















Sor NOD 670 BCL) =X CL) XSQR (GK (MCL) 4M(2))/D43) 
2 680 B(2)=X (2) KSOR (GX +N C2 A 
30 DIM X(3),Y(3) ,AC3) B39) ,P (3) ,Q63) M(B), 690 ped oo) BERNE SSRI AEE CR NS? 

R$(10),C$(1) 700 T=1 TO 2 
40 REMKXX,Y ARE FOSITIONS, A,B ARE 710 Body" $1 

VELOCITIES, F,Q ARE PLOTTED POSITIONS 720 “Position ('PX¢I)$", 0)" 
50 PRINT : “ 730 "Velocity (O,"FECL)p")" 
60 PRINTTAE( 10) ;"ORELTAL MOTION" 740 
70 PRINT TAB(10)$! 750 
oa PRINT "Would like FULL instruct i ion et ey 

R ould you like F . instructions 770 OTR " e P tne 

att “ERENT “Type position (X,Y) of the 

110 PRINT "Type YES or NO and press RETURN" 7380 K(3) ,YC3 

120 INPUT R$ 790 PRINT “Type velocity (X,Y) of the 


130 IF R$="YES" THEN 170 
140 IF R¢="NO"THEN 380 
150 PRINT "Reply /"Ré"/ 
160 GOTO 110 
170 CLS{FRINT TAE(O,3)3"This program 820 1 
analyses the" ; 830 IF M(3)%0 THEN 879 

180 FRINT"the motion of cosmic bodi B40: PRERT "Nese must Be arekber then zene” 
190 PRINT"relative to each other, Thi 850 GOTO 810 

R ised to show the orbits of planets" 860 REMXXCHANGE VELOCITIES SO THA 
und @ single yor the CENTRE OF MASS IS STATIONARY 
870 LET M=MCL)4M(2)4M(3) 
880 FOR T=1 TON 


third body" 
Oe 800 INPUT A(3),BC3) 
learstood. "3 810 "Type Mass of third body. 
of body 1 is 1)" 
MCB) 








not WJ 
















compl 
220 PRINT"orbits of a planet around 
double star" 

















9 BACT) “ACE 3) ) 

230 PRINT tem. The motion of these bodies" nae pene ACSI MCS EN CLYIM 

240 PRINT"is displayed on the screen" 910 

250 PRINT'You must specify whether to 920 ESS ANY KEY TO CONTINU 
analyse two" 





260 PRINT 
270) FRINT 





or three bodies. The first two are” 930 CLOIPRINTIFRINT "During the 
itomatically placed in 











milation,would you like displayed" 

mutual orbit" 940 PRINT 

280 PRINT" around each other, but the 950 PRINT" 1) The PATH traced by the 
third body" bodies : 

290 PRINT"may be placed in any position and" 960 RINT 

300 FRINT'with any velocity, 970 PRINT "or 2) The CURRENT position 
Considerable care" of the bodies" 

310 FRINT"is needed to avoid the third body" 980 ERINT 


320 FRINT' shooting off to infinity! 
The program" 
330 FRINT' automatically adjusts the initial" 
340) FRINT' velocities so that the 
centre of mass" 
350 PRINT'does not move off the screen" 
360 PRINT TAECO,30)}"PRESS ANY KEY TO 
CONTINUE" } SA$=GETS 
370 CLS 
380 PRINT 
390 PRINT “Would you Like @ two body oar 
a three" 
400 FRINT "body analysis" 
410  FRINT 
420 FRINT "Type 2 or 3 and press RETURN" $ 
430 CNPUT N 
440 PRINT 
450 IF (N~2)«(N-3)"0 THEN 480 
460 PRINT "The number of bodies 
anelysed must be Z or 3" 
470 GOTO 420 
480 PRINTSPRINT "Consider two bodies 
orbiting each other." 
490 PRINT "Let the Mass of the first be one," 
500 FRINT "type the Mass of the second'} 
S10 INPUT M(2) 
THEN 490 





[NT "Type in the distance 
between the bodies"} i 
INFUT D ‘ 

IF D>0 THEN 600 

PRINT "Distance must be gre 
GOTO S40 

REMKXCALCULATE INITIAL FOST TIONS 
VELOCITIES OF THE TWO PARTICLES 
Y¥C1)=0 

Y¥(2Z) #0 

r XL 
rT XZ 
r ACL 


ater than zero” 





















KM CZI/CMCLI4+M CZ) ) 
“DEM CLI / CM CLI 4MC2)) 
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FRINT "Type 
INFUT C 
IF (C=1)*(C~2)<>0 THEN 920 

REM*XCLEAR SCREEN 

CLS 

REMXXSET INITIAL VARIABLES 

LET H1i=0 

LET T=,.01 

FOR I=1 TO N 

LET FP(T)=0 

LET Q¢(I)=0 

IF ABS(X(I))<H1 THEN 1120 

LET H1=ABS(X(I)) 

IF ABS(Y(T))<H1 THEN 1140 

H1=ABS(Y(T)) 

NEXT I 

REMXXSPECIFY HEIGHT AND WIDTH OF SCREEN 
He 1024 

W=1280 

VOU S 

LET HO=.5x(H=1)/H1 

LET WO=,.5x(W-1)/H1 

FOR L=1 TO 5000 

REMKXPOSITION GODIES 

FOR T=1TO N 

REMXXCONVERT X,Y POSITION TO FQ 
CHARACTER CELL 

LET PL=INT(CXCL) +H1) *WO+.5 

LET QL=INTCCY(I)+H1)xHO+,5) 

IF ABS(P1-P(T))+ABS(Q1-Q(I))=0 THEN 1300 
REMXXCALLSUBROUTINE TO UNFLOT OLD 
SQUARE AND FLOT NEWSQUAR 

GOSUE 1580 

NEXT I 

REMXXRE~CALCULATE VELOCITIES OF BODIES 
FOR T=1 TO N~1 

FOR J=T+1TO N 

LET XL#X(I)=X¢U) 

LET Yi=¥(T)-¥Cu) 

T R=SQR(XLXXL+Y1"Y1) 

T R3#GXT/ CRER&R ) 





lor 2 and press RETURN" 




















.f 
E 
E 


























REM&XCALCULATE CHANGE IN VELOCITY 
IN X DIRECTION 

LET F=X1xk3 

LET ACJ=ACJ)+FaM(T) 

LET ACT)=ACI)-FxMCJ) 
REM*XCALCULATE CHANGE IN VELOCITY 
IN Y DIRECTION 











LET F=Y1x 

LET BC J)=BC J) +FxM (LT) 
LET BCI) =B(L)-FxM (J) 
NEXT J 

NEXT I 





REMXXMOVE BODIES A DISTANC 
PROFORTIONAL TO VELOCITY 

FOR I=1 TO N 

LET X(T)=X(I)+A(I) xT 

LET Y(I)=¥(L)+E( 1) «T 

NEXT I 

NEXT L. 

PRINT "Simulation finished" 

TOP 

SEMXXSUBROUTINE TO UNPLOT AND REPLOT 
REMXXUNPLOT 

MOVE P(T),Q(I) 
TFP1x(P1-W+1)>0 THEN RETURN 
REMXXREPLOT IF POINT ON SCR 
IFP1x(P1-W+1)>0 THEN RETURN 
IF Q1*(Q1—-H+1)>0 THEN RETURN 
LET P(I) =P1 

LET Q(T)=Q1 

LET a" 

THEN 1700 








EEN 











IF I=2 THEN 1700 
LET C$="4" 

PRINT C$} 

MOVE FC(T),Q(1I) 

> THEN GCOL 0, 








"LOT 65,0,0 





RETURN 


SS 





Converted from a program by D V Mercy 


ELLIE ER SARIS TSE SS SS Ta TE ET 
Even experienced 
mathematicians can 
baulk at the idea of 

SOLI "RR emer 





polynomials, but type 
in this program and 
you'll have a head 
start. 








| ye his program calculates and 
xf Sy he hye lists the roots of 
BOE aa eBie polynomials (provided the 
vi x i & Wf coefficients are real). The 


polynomial can be of any order 
and both real and complex roots 
are derived. 


Back To Roots 

An iteration procedure, based 
on the method devised by Lin 
and Bairstow, is used to extract 
quadratic factors from the 
polynomial being considered. 
This procedure has good 
convergence characteristics and 
is nearly always successful 
(even when the initial trial 
factor is wildly wrong). In the 
case of an odd order 
polynomial, there is at least one 
real root and this is determined 
last of all. 

Generally speaking, the 
procedure is to start with a trial 
quadratic factor and to divide it 
into the polynomial under 
investigation. If, by good luck 
or insight, the quadratic is an 
exact factor of the polynomial 
then no remainder is left after 
the division has been carried 
out. However, as is more likely, 
a remainder will be left, in 
which case the Lin-Bairstow 
iteration is used repeatedly to 
optimise the coefficients of the 
quadratic factor. After each trial 
division the magnitudes of the 
remainder are tested and if 
sufficiently small, that cycle of 
iteration is terminated. Well- 
known methods are available to 
obtain two roots from the 
quadratic factor so obtained. 

If the initial polynomial was 
of order n, then after the 
quadratic factor has been 
extracted, the polynomial 
remaining is or order (n-2). The 
process is repeated to find 
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SM SE a ETRE) 


another factor, until the final 
polynomial left is simply first 
order or a quadratic which is 
easily solved. 

The program gives the user 
he opportunity to enter trial 
values of his or her own hefore 
the iteration is started. 
However, this may reduce the 
execution time of the program. 
Failing this, each new iteration 
starts with a trial quadratic 
actor of x? + Ox + O. 


True Or False 


Although in principle, 
polynomials of any order can be 
solved, rounding errors will 
become important with high 
order polynomials. Also, 
because the procedure 
computes the roots sequentially 
and the accuracy of latter roots 
will depend on the earlier ones, 
errors can accumulate. This is 
especially true for polynomials 
with repeated roots. 

So take great care before 
you treat the results of this 
program as true. Put the roots 
back into the equation and see 
how close to zero it actually is! 

If you wish to delve deeper 
into the mathematics used in the 
program, the following 
references will help you: 











| W Hamming, Numerical 
| Methods, published by 
McGraw Hill, 1962. 
J L Mueller, Arithmetic 
Techniques, Electronic Design 
|} 12.9.68. 
| Beech et al, Computer 
Programs that Work, Sigma 
Press, 1978. 


ENTER 
ENTER 
ENTER 
ENTER 
ENTER 


ENTER 
ENTER 
ARE ALL ENTRIES CORRECT?Y_ 
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HOW TO USE THE 
PROGRAM 


The program asks first for the 
order — ie the highest power of 
x — of the polynomial. Then 
each coefficient is entered 
starting with the higest power 
and the computer allows you to 
make any necessary corrections 
before it commences the task. 


Also, before the program 
begins the calculation, it asks if 
you want to enter a trial 
solution. If the answer is ‘NO’ 
the roots are printed as they are 
found. This can take some time 
so be patient! If you do opt for 
entering a trial solution you are 
asked for the coefficients of a 
quadratic equation for each 
quadratic factor the program 
uses. 


PROGRAM STRUCTURE 


Lines 10-220 


User is requested to input order of 


the polynomial. The computer then 
prompts for each coefficient and 
allows user to correct input. If any 
entry is invalid, the computer 
requests correction. 


Lines 230-360 
Lines 370-480 


Check 


Preparation 


Checks for simple solutions. 
Sets up the inital conditions for 


iteration and asks user for trial 
values if required. 


Lines 490-560 


Division 


Carries out synthetic division 


procedure. 


Lines 570-680 | Test 


Remainders 


Inspects remainders. If these are 
small enough the program goes to 


the print routine, otherwise updates 
the coefficients of the quadratic 
factor and carries out synthetic 
division repeatedly. 


Print 
Move 
Solutions 
Failure 


Prints the quadratic solution. 


Tests whether any more solutions 
are required. 


In the event of program halting, 


prints error message. 





ORDER OF POLYNOMIAL ?5 


ACS> 
AC4) 
ACS> 
AC2> 
AC1> 
ACO> 


73 
oe 
74 
73 
79 
76 





ROOT SOLVER 
SLES LS DE LE LE ELLE IED TIT ET TT EDT ELS 


DO YOU WISH TO ENTER A TRIAL FACTOR?Y 
FACTORS ARE OF THE FORM X*+2+P*X+Q 
ENTER VALUE OF P75 

ENTER VALUE OF Q?74 


WAIT CALCULATING 


-1.24398636 + J 0.374280136 
-1.24398636 - J 0.374280136 


DO YOU WISH TO ENTER A TRIAL FACTOR? 


REMx*ROOTS OF POLYNOMIALS IF LEFT$(H$,1)<>"Y" THEN | 

REMXxROOTS OF ACN).XAN + PRINT "FACTORS ARE OF THE 

ACN=19 6 XACN=1) oe ACO) 0 INPUT "ENTER VALUE OF Ff" 
INFUT "ENTER VALUE OF Q" 

REMXXINPUT DATA PRINT 

PRINTSINPUT "ENTER ORDER OF POLYNOMIAL",N PRINTSPRINT TAB(10)3 "WATT 

IF ABSCINT(N))=N THEN 80 REMKXSYNTHETIC DIVISION Ff 

PRINT "INVALID ENTRY"3GOTO 50 P=P+R 3 Q=Q+5 

DIM A(N+2),BCN+2),C(N+2) FOR M=N TO 1 STEF ~1 

FOR M=N TO 0 STEP ~1 BM) =A (CM) ~Q&E (M42) PXEL( 

PRINT “ENTER AC"3M3") COM) =B OM) -QXC (M42) PKC CM 

INPUT ACM) NEXT M 

NEXT M B(0)=A(0)-QxB(2) 

INFUT "ARE ALL ENTRIES RREC i$ REMXXTEST REMAINDERS 

IF LEFT$(K$,1)="Y" THEN 2 IF ABS(E(0)/AC0))>K THEN 61 

IF LEFT$(K$,1)<2"N" THEN 12 IF ABS(B(1)/AC1))>K THEN 

INPUT "ENTER ORDER OF INCORRECT COEFF.",L GOTO 490 

IF L>N THEN 190 REMXxXUPDATE OF F AND Q 

IF ABSCINT(L))=L THEN 200 Z D=C(1)-BC1)+PxC(2) 

PRINT "INVALID ENTRY"$GOTO 160 E=C(2)+PxC(3) 

PRINT F=DxC(3)-ExC(2) 

PRINT "ENTER NEW VALUE OF AC"3L3 IF F =0 THEN 870 

INPUT A(L)$ GOTO 130 R=(B(0)«*C(3)-ExB(1)) 

IF N=0 THEN PRINT "TRIVIAL 7 S=(DKB(1)-B(0)*C(2))/F 

PROBLEM"$ GOTO 890 GOTO S10 

IF ACN)=0 THEN N=(N=1)?GOTO 230 0 PRINT 

FOR M=(N=1) TO 0 STEP ~1 REMKxXSOLUTION OF QUAD 

ACM=ACM)/ACN) ENEXT MIA(N)=13H=0 710 PRINT 

CLS 720 T=PxP-4xQ 

FOR W=1 TO 1000tNEXT W 730 IF T<=0 THEN 77( 

CLS 740 IF P<0 THEN Z=-F 

REMKXTEST FOR THE ROOTS AT THE ORIGIN 750 Z=-F/2Z-SQR(T) /2 

IF ACO)<>»0 THEN 340 760 PRINT TAE(10)3Z:! 

PRINT "O"N=N-L3IF N=0 THEN 890 GOTO 810 

FOR M=0 TO NSACM)=A(M+1) NEXT MiGOTO 300 770 IF T<0 THEN 

REMXXTEST FOR 1ST OR 2ND ORDEF 780 PRINT TAB(10)}-P/2:PRINT TAB(10)3 

POLYNOMIAL GOTO 810 

IF N=1 THEN PRINT TAE(10)$-AC0)3 790 PRINT TAE(10)3-F + J "$SQR(—T 

GOTO 890 800 PRINT TAB(10)3 J "3SQR(-T)/2 

IF N=2 THEN P=A(1)3Q=A(0)3GOTO 720 810 REM*XPRELIMINARIES BEFORE LOOPING BACK 

REMXXSET UF INITIAL CONDITIONS FOF 820 

ITERATION 830 

ACN+2Z)=O03ACN+1)=03B (N42) =0 SE (NF1)=0 840 

CON+2)=020(N+1)=0 850 

P=0?Q=0tR=03S=0tK=1E-7 860 

IF H=1 THEN 490 870 PR DETERMINANT 

PRINT{FPRINT "DO YOU WISH TO ENTER 880 PRINT "PROGRAM HALTED" 

A TRIAL "$3 890 

INFUT "FACTOR" ,H¢ 
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BIBLIOGRAPHY 


ithin weeks of the BBC 
Micro being launched, a 
number of books had 


appeared to support the 
product, both from the BBC and 
various independant publishers. 
While this list is complete at the 
time of going to press, it does 
not take much foresight to 
realise that during the next few 
months even more titles will be 
published. 


The Computer Book: This 
publication, although produced 
by the BBC, has no direct 
connection with either the BBC 
Micro or The Computer 
Programme. It simply attempts 
to introduce the ‘computer shy’ 
individual to the wide and 
diverse subject of computing, 
covering the ground in a 
relaxed and friendly fashion. 
The book doesn't introduce any 
radical new ideas and certainly 
cannot be regarded as a ‘text’ 
on computers but then that isn’t 
really its object. 

The features which really 
make this book stand out are its 
excellent production and layout 
and the clever use of photo- 
graphs, illustrations and 
cartoons to keep the reader 
both interested and amused. If 
the quality of the editorial 
content was to the same 
standard.... 


The Computer Book by Robin 
Bradbeer, Peter de Bono and 
Peter Laurie is published by 
BBC Publications at £6.75 for 
254 pages. 

ISBN 0 563 16484 0. 


80 Hour BASIC: If you want to 
approach the subject of 
computer programming ina 
disciplined and methodical 
fashion then this book, which 
has been produced in 
conjunction with the BBC 
series, is almost certainly a 
recommended buy. You don't 
really need a micro to complete 
the course, although one would 
be helpful, and the book is not 
specifically related to the BBC 


= 





Micro. ..a special version is 
also available for the Sinclair 
ZX81 


If you like your approach to 
computers to be light-hearted, 
this book will probably not 
appeal. Also, its approach 
means that as well as learning 
the ins and outs of BASIC pro- 
gramming, you will learn to 
write clear and logical 
programs, something that 
happens all to seldom in many 
books. 


30 Hour BASIC by Clive 
Prigmore is published by The 
National Extension College at 
£5.50 for 256 pages. 

ISBN 0 86082 269 9. 


BASIC Programming on the 
BBC Microcomputer: To have 
produced this introductory book 
in so short a time is a 
remarkable achievement by 
both the authors and the 
publishers. The sad fact, 
however, is that this is an 
introductory book, and as such 
tends to leave you waiting for 
more. The volume was put 
together with the assistance of 
Acorn, the company who 
designed and produced the 
BBC Micro, so it is very 
specifically related to that 
product, 

The book is practical in 
nature with lots of small 
examples to try out and 
problems to solve. The actual 
information content is not 
significantly more than that in 
the early version of the User 
Guide except that the facts have 
been arranged in a more 
readable form. Although the 
book has areas of weakness, it 
does stand up as an 
introduction but one hopes that 
the second volume will not be 
too long in coming. 


BASIC Programming on the 
BBC Microcomputer by Neil 
and Pat Cryer is published by 
Prentice Hall International at 
£5.95 for 205 pages. 

ISBN 13 066407 3. 


Practical Programs for the BBC 
mputer and the Acorn 
ATOM: This somewhat slimmer 
volume contains four chapters 
based around a number of 
simple programs which are 
reproduced for both the BBC 
Micro and the ATOM. The 
presentation and layout is 
excellent and the structure of 
each of the examples is clearly 
explained. However, the real 
meat is to be found in the fifth 
chapter which presents SPL, 
Simple Programming 
Language, a new compiler for 
both types of micro. As well as 
providing a second high-level 
language, this chapter 
demonstrates how to go about 
writing a simple compiler. 


Practical Programs for the BBC 
Computer and the Acorn 
ATOM by David Johnson-Davies 
is published by Sigma 
Technical Press (distributed by 
John Wiley & Sons Ltd) at £5.95 
for 120 pages. 

ISBN 0 905104 14 5. 


Coming Soon 


A large number of book 
publishers have material in 
various stages of development 
for the BBC Micro user and 
within the next few months we 
can expect titles on the graphics 
capabilities of the system, its 
music and sound generation, at 
least two more titles on the 
BASIC it uses plus several more 
general works. The flood of 
books is somewhat akin to the 
one which took place after the 
launch of the ZX80 and ZX81 
but, so far at least, the quality 
seems to be of a much better 
standard. 

The two titles I haven't 
covered are the two versions of 
the User Guide itself. Suffice to 
say that everything the first 
version lacked (simply because 
of the time needed to print it 
before the machine was ready), 
the second version seems to 
make up for. Indeed, the 
second version may well set the 
kind of standard demanded of 
future systems, that is if the ’ 
manufacturers can be . 
persuaded to give all their 
secrets away! 
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Why type in 77,000 
bytes of BBC BASIC 
when you can buy 


these programs alll 
IN ready to be LOADed 
into your BBC Micro. 





Breakthrough — You have a bat, five balls and a 
wall of six rows of bricks. The aim is to break 
through the barrier of bricks scoring as many 
points as possible. A classic game and quite 
compulsive. 

Ski-Run — Downhill slalom complete with gates 
to negotiate. Reach the bottom of the course in 
the shortest possible time, steering your way 
around the gates and without going off the edge 
of the course. You may alter the speed as you go, 
but even slow is too fast for some! 

Alien Attack — Control the position of your 
space ship so that you can shoot down the 
invading aliens. They seem to travel slowly but 
they never stop! 

Surround — The classic game for the PET 
computer now rewritten for the BBC Micro. The 
object is to move your piece around a moving 
‘enemy’ so that he has nowhere to go! Fast 
reactions are needed for this one. 

Crystal Ball — Want some fun with your friends? 
Type in their name and get the computer to 
generate a lighthearted character assessment 


Squish — No game of squash was ever like this! 
Between you and the back wall are a row of 
pillars which the ‘ball’ can bounce off! Great fun 
and quite addictive. 

Obstacle Course — Race against the clock to get 
through a maze which is continually changing its 
pattern. Grit your teeth when it blocks you but 
don't despair, you'll get through in the end. But 
how much time you'll take is anyone’s guess. 
Dambuster — Watch those bombs bounce as they 
hit the water ...will you destroy the dam this 
time? Careful judgement of the height of your 
plane is essential, the bomb could even bounce 
back and hit you! 

Patterns — A demonstration not only of the BBC 
Micro's graphics capabilities but also of how 
restful moving colour images can be. Several 
choices of pattern including some fantastic web 
designs which continuously alter. Who wants to 
go for trancendental meditation when you have 
Patterns on your own TV screen. 


based on a reduction of the subject's name to a 
single ‘magic’ number. 

Battle of Britain — Based on two months at the 
height of the Battle of Britain, you allocate the 
number of British radar sites to be implemented, 
the number of fighters to scramble, the number of 
fighters to manufacture, etc. The computer plays 
the German side. Plan your campaign carefully 
or in the world of the BBC Micro, we may all be 
speaking German! 

Fox and Hounds — A game played on a chess 
board grid where the computer controls the fox 
and you control the hounds. The aim is to trap the 
fox. Good graphics and a game with varying 
degrees of skill. 

The White Barrows — Trap the Sorcerer and 
recover the Magic Chalice, using your magical 
powers carefully to negotiate and locate his 
position. Bribe goblins, fight dragons and work 
out the layout of the labyrinth. A good text-only 
game which should keep the family spellbound 
for hours. 





Conquering Everest — Have you ever dreamt of 
climbing our world’s highest mountain? Well, 
now is your chance to plan out an entire 
expedition in your own home. This impressive 
text-only game allows you to travel from base to 
base, choosing whether you want porters or 
Sherpas to carry all your provisions. But don't 
expect to conquer Everest at one sitting, you have 
to move the right equipment to the right place at 
just the right time. Have fun... without frostbite! 
Wordsquare — The idea behind this game is to 
give the computer a list of words which it then 
hides in a 15 by 15 grid of letters. They may be 
hidden in a number of different ways and as the 
additional letters are randomly selected, no two 
puzzles are ever the same. 

Leapfrog — A computer implementation of the 
game often found in pubs. The aim of the game is 
to get the left-hand rows of ‘coins’ over to the 
right-hand side and vice versa. Sounds easy... 
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Home Finance — Use this program to keep track 
of your finances. The computer will help you to 
budget by doing the sums and presenting you 
with all the up-to-date information you need to 
keep within your spending limits. The program 
will handle up to 20 accounts. 

Investment Checker — Having saved some 
money using the program above, this one will 
help you work out what your profits would amount 
to should you invest a regular amount over a 
period of time. 

Meter Minder — This package provides you with 
a series of projections based on your meter 
readings... gas and electricity. Fuel 
consumptions in cost per week, month or quarter. 
Plan how to SAVE IT. 

Calendar — With this versatile program you 
need never be without a date! The program will 
give the number of days between any two dates, 
what day of the week any date fell on and a 
display of any month of any year since 1582! 

Plot ‘n’ Planner — Work out the cost of your new 
carpet or how much grass seed you'll need for the 
lawn. ‘Draw’ any irregular shape on a displayed 
grid pattern and the computer will work out the 
enclosed area. 


Fill in the coupon below 
and send it to:. 

CT SOFTWARE, 

ASP Ltd, 

145 Charing Cross Road, 
London WC2H OEE. 


Base Changer — Do you have trouble converting 
to and from binary or hexadecimal? This program 
takes away the guesswork, converting to and from 
any number base up to 16. 

Morse Trainer — Practise Morse Code to 
perfection with this program. It will help you 
improve receiving speeds and aid initial 
recognition of Morse characters, introducing you 
to Morse Code gradually through a series of 
planned lessons. 

Root Solver — This program will calculate and list 
the roots of any polynomial (providing the 
coefficients are real!), The polynomial can be of 
any order and both real and complex roots are 
derived. 

Newton's Law — With this program, the 
computer enables the user to get the feel for 
Newton's Law of Gravitation as applied to the 
motion of planets. The orbits of planets are 
calculated and displayed on the screen. It can 
even simulate the ‘slingshot’ effect as used to send 
the Voyager spacecraft from Jupiter to Saturn! 
Descriptive Statistics — As statistics packages 
go, this is a short and simple one — but it will 
still turn unwieldy raw data into neat statistical 
information. 


The programs included in this issue of Personal Software are 
presented on three tapes, the first two covering the GAMES 
programs and the third containing the DOMESTIC, TECHNICAL, 
EDUCATIONAL and FINANCIAL programs. 


CT SOFTWARE, 

ASP Ltd, 

145 Charing Cross Road, 
London WC2H OEE. 











BBC TAPE 1 (Games) 
BBC TAPE 2 (Games) O 
BBC TAPE 3 (Domestic, Technical, 
Education and Finance) O 





Tapes are priced at £9.95 each or you can order 
two tapes for £17.50 or all three for only £25! 
All orders must include an additional 50p for 
postage and packing. 


I enclose my Cheque/Postal Order/International 1 
Money Order for: (delete as necessary 
Secreted (made payable to ASP Ltd) 
OR debit my Access/Barclaycard 


(delete as necessary) 


Please use BLOCK CAPITALS 
Name (Mr/ Mrs/ Miss) 


Address 


Dette ssiassccis sonatiyins s 
Please allow 21 days for delivery 


Signature ................ 


Computing Today Software | 
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=I What are you... 
%) Barbarian or Wizard? 


Choose your character type carefully. . . Barbarians recover quickly but 
their magic doesn’t come easily. A Wizard? Slow on the draw and slow to 
mature. . . but live long enough and grow wise enough and your lightning 
bolts are almost unstoppable. . . 

The Valley is a real-time game of adventure and survival. You may choose one of 
five character types to be your personal ‘extension of self’ to battle and pit your wits 
against a number of monsters. Find treasure, fight a Thunder-Lizard in the arid 
deserts of the Valley, conquer a Kraken in the lakes surrounding the dread Temples 
of Y’Nagioth or cauterise a Wraith in the Black Tower. In fact live out the fantasies 
you’ve only dared dream about. BUT BEWARE... more die than live to tell the tale! 

You’ve read the program (Computing Today — April ’82) .. . Now buy the 
tape. PET. TRS-80, BBC and Sharp tapes are available at £9.95 per tape plus 50p 
postage and packing. 16K minimum. ..Commodore PET (New ROMs), 

TRS-80 Model 1, Level 2, BBC Model B and Sharp MZ-80K. Fill in the coupon below 
and return it to CT Software. ASP Ltd., 145 Charing Cross Road, London WC2H OEE 
and become one of the first to play... .The Valley... . 


| Please send me... .tape(s) of The Valley (] PET (1 TRS-80 OC Sharp () BBC at £9.95 per tape plus SOp postage and packing. | 
I enclose my Cheque/Postal Order/ International Money Order for: (delete as necessary) 
(Made payable to ASP Ltd) 
OR Debit my Access/Barclaycard 
(delete as necessary) 


Please use BLOCK CAPITALS 
Name (Mr/Mrs/Miss) 


Address 








Make the most of your 
BBC Micro 


“Let your BBC Micro teach you to program”. : 
This great new book by best-selling author Tim LET YOUR BBE MICRO 
Hartnell is the ideal companion for you if the TEACH you 10 


BBC Micro is your first computer. The book leads Cree 
you through programming in BBC BASIC, step by PROGRAM & ter! 
simple step, and gives you a host of worthwhile 
programs to try. As well as a large collection of 
games (including DRAUGHTS and OTHELLO), 
there are programs for educational, mathematical 
and statistical applications. You can now master 
programming quickly, with this great new book. 
£6.45. 
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Each month the Independent Acorn (Atom/BBC) 
Users’ Group publishes the magazine 
INTERFACE, with major articles and at least six 
programs for your BBC Microcomputer in each 
issue. A year’s subscription to INTERFACE is just 
£9.50 (UK), £12.50 (elsewhere). Just £1.00 will 
bring you a sample copy. 








Inside this issue 
Adding joysticks to 
Floppy dks fr the 










prices up 
The Second 2X Microtair 











by Jeremy Ruston 





‘The BBC Micro Revealed”. Jeremy Ruston, 
author of the popular manual “Pascal for Human 
Beings”, turns his attention to the BBC 
Microcomputer and reveals all in this great new 
book. If you're a serious user of the BBC Micro, 
and you want the full story on what is going on 
deep in the computer's insides, you need this 
book. With it, you get the benefits of months of 
patient probing. £7. 50. 
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the BBC Microcomputer ! 





INTERFACE DEPT.PS, (tisennstishiang =. | | 
44-46 EARLS COURT The next 12 months of INTERFACE. I enclose £9.50 (UK), £12.50 
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RO AD, pga tel ere make me a peer the users vc a 
0 A sample copy of INTERFACE, and de of the In epen| lent 
LONDON W8 6E Acorn "(Atom /BBC) Users’ Group. T enclose £1.00. 








Hartnell. 

I enclose £6.45. 

A copy of “The BBC Micro Revealed” by Jeremy Ruston. 
I enclose £7.50. 

Total enclosed £............ 
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from PROGRAM POWER 


MODEL A or B 














High quality chess game with castling,‘en passant’ »play black or — Relocatable program. Lists object code and assembler mnemonics, 
white, rejection of illegal moves and 6 levels of play. Set up from any specified address.Stop and restart the listing, page mode 
problem games. £7.95 option, ASCII symbol and printer output options. £5.95 


MODEL B ONLY 
Full feature version of the classic battle against the Klingons. All 
the usual features- phasers,photon torpedoes, long and short range 
scans, ‘on-board’ computer - together with sound effects and ‘real- 
time’ torpedo battles. £7.95 







You have crash landed in the legendary labyrinth of Titan, 
inhabited by alien monsters known as ‘Froogs’.Find your way out 
to the ‘Transmat' probe before being cornered and eaten. 8 skill 
levels and 3D colour graphics. £5.95 






Colourful and highly entertaining version of this popular arcade 
game.Munch your way to a high score,before the ‘munchers' 







ir you. Reverse roles by munching the stars. The more you 
score,the harder the game gets. £5.95 






WE PAY 20% ROYALTIES FOR 
ae eas poate oe ri i . ne ATOM, NASCOM & 
plays a tough game and every hard to ialywnen —- BBC MICRO PROGRAMS 







d i 
making first move. £3.95 
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We are giving Fabulous discounts on 

all our BBC MICRO Programs w’ 

IF YOU BUY NOW. 

CHESS (£7.95) now 

STARTREK (£7.95) now MUNCHYMAN, 

ISASSEMBLER & SPACE MAZE (£5.95): Now 
GOMOKU (£3.95) now 


Please add 55p order P&P + VAT at 15% 


: rs a] PROGRAM bbs 4 Road 
pean = GOWGO Hw. 
ROGRAMBOUGD PROGRAMBOUBGOR 
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